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Introducción 


Estoy seguro que a estas alturas ya habrás descubierto que el ordena- 
dor es un compañero de juegos perfecto. Paciente, siempre dispuesto a 
perdonar, elegante en la victoria, complaciente en la derrota. ¿Qué más se 
puede pedir? Cuando vas perdiendo una partida no tienes más que esca- 
parte del programa y volver a empezar. Algo así como si dieras un golpe 
airado al tablero cada vez que te comen el primer peón. Inténtalo con unos 
cuantos contrincantes humanos y verás cuán pronto se hartan y te dejan 
solo. 

Cuando hayas ejecutado estos programas tal y como aquí se ofrecen, 
posiblemente te apetecerá hacerles ciertas modificaciones, como cambiar su 
presentación en pantalla, añadirles sonido, hacer que el ordenador utilice 
tu nombre de vez en cuando y otras cosas por el estilo. De ti solo depende 
el que adquieran un toque más personal. 

Si quieres, puedes ahorrarte gran parte del tecleado suprimiendo todas 
aquellas sentencias REM que no son más que líneas de asteriscos. Estas 
no van a ser llamadas nunca por GOTO o GOSUB algunos, sino que 
actúan como separadores visuales entre los diferentes módulos que compo- 
nen los programas. Asimismo, puedes pasar por alto todas las sentencias 
REM que forman la última parte de una línea, como ésta: 


50 GOSUB 2000: REM FIJA LA PANTALLA 


Has de incluir, sin embargo, las sentencias REM que encabezan una 
sección (como 1000 REM INICIALIZA), pues éstas serán invariablemente 
llamadas por otras rutinas. 


COMO EJECUTAR LOS PROGRAMAS 


Todos los programas están intencionadamente escritos en la versión de 
BASIC más general que pueda encontrarse. Por tanto, no hallarás órdenes 
PEEK o POKE, ni tampoco se utilizarán conjuntos de caracteres gráficos 
u órdenes del tipo SOUND o PLAY. Parto del supuesto de que mis 
lectores tendrán acceso a READ y DATA y de que sus pantallas tendrán 
unos 40 caracteres de ancho (si tu ordenador es del tipo del Spectrum, 
cuya pantalla no tiene ese ancho, enseguida verás que es muy fácil adaptar 
la salida del programa para que quepa en tu sistema, ya que la mayoría de 
los programas consisten en sentencias PRINT que pueden adaptarse de 
acuerdo con las necesidades de cada ordenador). 

Por supuesto, tendrás que jugar un poco con la presentación en pantalla 
para hacerla todo lo efectista que te sea posible. Y ya que toco este tema, 
espero que modifiques y adaptes los programas a fin de sacar el máximo 
de provecho al sistema que utilices, añadiéndoles, en donde puedas, sonido 
y color, además de los gráficos propios de ese sistema. 

Para escribir los programas incluidos en este libro utilicé un Sony Hit- 
Bit MSX HB-75 P (algunos programas no se pueden ejecutar en el modelo 
inferior, el HB-55 P, debido a que necesitan mucha memoria, a menos que 
se utilice un cartucho de expansión). En este ordenador, si uno quiere 
generar números enteros aleatorios entre el 1 y el 10, pongamos por caso, 
ha de utilizar una orden del tipo A = INT (RND (1) * 10)+ 1, o en el caso 
de querer un número por debajo de uno, se puede utilizar A= RND. 
Como enseguida comprobarás, éstos son los formatos que se utilizan a lo 
largo de todo el libro. Si tu sistema no los acepta, tendrás que sustituir, ya 
sea A=RND (10) o A=INT (RND (0)*10)+ 1, o A=INT (RND 
(1)* 10) + 1 (y es posible que tengas que poner un LET delante de esta 
orden, como en el caso del Spectrum). Lo más seguro es que ya sepas cómo 
se realizan estos cambios, pero si te quedara alguna duda, lo mejor es que 
consultes el apartado RND o “Números aleatorios” en el manual de 
referencias de tu sistema. 

Aunque gram parte de la salida entrecomillada de las sentencias 
PRINT está en minúsculas, todos los programas esperan que se les intro- 
duzca la entrada en mayúsculas. Si tu sistema no cuenta con minúsculas, 
no pasa nada por que pongas también en mayúsculas todo el material 
relativo a las sentencias PRINT. Yo lo hice con minúsculas porque me 
pareció que asi quedaba más bonito, pero esto no tiene nada que ver con 
la ejecución real del programa. 

Todos los listados son compatibles con BASIC Microsoft y BASIC 
MSX. La mayoría de los ordenadores permiten una longitud de línea de 


unos 255 caracteres o más. Otros, como el Commodore 64 y el VIC 20, 
tienen un límite (cuatro líneas en el caso del Commodore, y dos en el del 
VIC 20). Si tu ordenador tiene un límite y tampoco consigues introducir 
la línea utilizando abreviaturas para las palabras clave, generalmente pue- 
des dividirlas en las comas. No obstante, si esas líneas largas comprueban 
cierto número de condiciones, deberás utilizar algunas de las comproba- 
ciones IF/THEN en la primera línea a fin de saltar sobre el segundo 
conjunto (mediante un GOTO); si no se satisfacen dichas condiciones, 
deberás poner en una segunda línea adicional el balance de los IF/THEN. 

Observa que algunos BASIC, como el BASIC de Atari, no tienen 
soporte para cadenas alfanuméricas dentro de las sentencias INPUT. 
Sustitúyelas por una “cadena” PRINT seguida de un INPUT separado. 


PROBLEMAS QUE PUEDEN SURGIR 
Y SUS SOLUCIONES 


En el caso de que tu ordenador no tenga DEFINT, omite sin más la 
línea DEFINT A-Z cada vez que te la encuentres. Si tu sistema no tiene 
soporte para IF/THEN/ELSE, divídelos en dos sentencias IF/THEN sepa- 
radas. Para CLS (para limpiar la pantalla) utiliza PRINT “CLR” en las 
máquinas Commodore y en los ordenadores Atari, HOME en los Apple y 
CALL CLEAR cuando estés trabajando con TI Extended BASIC. Si tu 
ordenador carece de INKEY$, usa ya sea INPUT A$, o GET A$ 
(salvo en el TI Extended BASIC, donde puedes utilizar CALL KEY). 

Como la manipulación de cadenas puede causar ciertos problemas 
he procurado reducirlas a un mínimo en todos los programas que com- 
ponen este libro. Si tu ordenador no tiene soporte para las órdenes 
estándar de manipulación de cadenas de LEFTS, MID$S y RIGHTS, 
consulta el manual de referencias de tu sistema. En el TI Extended BASIC, 
SEGS$(A$,2,3) sustituye a MIDS(A$(2,3)), mientras que en los orde- 
nadores Sinclair, se deberá utilizar A$(2 TO 5), y A$(2,5) cuando se esté 
trabajando con un Atari. 

En realidad, verás cómo en cuanto empieces a introducir los pro- 
gramas, tú mismo harás automáticamente todos los pequeños cambios 
precisos para adaptarlos a las características peculiares de su siste- 
ma. Si he hecho todas estas aclaraciones ha sido sólo con la intención 
de que no anduvieras perdiendo tiempo con las conversiones de un siste- 
ma a otro y pudieras empezar a ejecutarlos lo antes posible. En los 
apéndices encontrarás algunos de los programas adaptados para Spec- 
trum, Commodore, Amstrad y Apple, así como indicaciones generales para 
la conversión de los distintos sistemas. Pero lo más seguro es que estén de 
más. Conque no te dejes intimidar por la extensión de esta introducción y 
sigue adelante. 

Es imposible predecir con exactitud cuánta memoria necesitarán en 
cada sistema los programas que aquí se incluyen, ya que ésta se organiza 
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10 


de muchas maneras diferentes y el espacio de trabajo que requieren los 
programas varía de un sistema a otro. 

En todos los casos he seguido técnicas de programación estructurada. 
A mí me sucedió, y es probable que a mis lectores les pase lo mismo, que 
cuando me decidí a poner en práctica todos los consejos que había leído 
en libros y artículos sobre este tema, me di cuenta de hasta qué punto el 
trabajar “de arriba a abajo” simplificaba, al tiempo que precisaba, la tarea 
de escribir y modificar los programas. Además, cuando se emplea este 
método de trabajo resulta mucho más sencillo llegar a verlos completos y 
ejecutados. Y lo que es más importante: puedes entrar en las partes más 
divertidas —la propia ejecución— mucho antes que siguiendo otra técnica 
de programación. 

Y, por último, unas palabras sobre las variables. En varios casos se 
han empleado como variables palabras completas (como PUNTOS o 
MARCADOR). Sin embargo, sólo las dos primeras letras son significativas. 
Si tu sistema sólo acepta nombres de variables de dos letras, introduce 
solamente las dos primeras (como PU o MA, en este caso). De aceptarlo el 
sistema y aun cuando sólo reconozca las dos primeras letras de un nombre 
de variable, has de incluir el nombre entero. Verás como haciendo esto te 
resultará mucho más fácil comprender lo que está sucediendo en cada 
momento dentro del programa. 

Creo que ha llegado el momento de empezar a jugar sin detenernos en 
más preámbulos. 

Que lo disfrutes. 


Tim HARTNELL 


TABLA DE CONVERSIONES 


En el texto: 
CLS INKEYS | IF/THEN/ELSE 
Commodore 64 | PRINT “CLR” | GETAS Dividir Utilice abreviaturas 
en 2 líneas para las sentencias; 
IF/THEN divida en 
Í si es necesario 
Apple (todos) HOME GET AS Dividir 
en 2 líneas 
IF/THEN 
Spectrum A$(2T0 5) 
en lugar de 
MID$(A$(2,3)) 


Longitud de línea Cadenas 
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Parte | 


Un paseo 
por el espacio 


LOS MARCIANOS ATACAN 
BASE ESPACIAL 2000 


A LA BUSOUEDA 
DEL RIEMANNIAN 


marcianos 
atacan 


Corren malos tiempos para nuestro planeta. Una vez más ha recaído 
sobre tus cansadas espaldas toda la responsabilidad de defenderlo contra 
las hordas de criaturas alienígenas, cada vez más numerosas y violentas. 

En LOS MARCIANOS ATACAN el espacio presenta este aspecto: 


>>NAVES MARCIANAS EN LA TIERRA: O << ES: 
>>NAVES MARCIANAS DESTRUIDAS: O x£ La 


< . .« . .«Xo . . «T.T.T. 


BR E ) 
LJ) 


Boo. . . .«... .. . .«T.T.T. 


Doo o aX o o o o 05 
A. e) e Ko al) 


1 


a 


16 


Dio e. 5 He e A co 


A. . Ke » . . . . . s . 


a 
¡E 


>> Ataques sobrevividos: O << 


La Tierra está representada por las nueve T situadas en la esquina 
derecha y los marcianos por las A del margen izquierdo. Los marcianos 
inician el juego tal como los ves aquí ahora, a la izquierda del sistema 
solar. 

Además de los marcianos y la Tierra, este sector del espacio contiene al 
infeliz defensor humano, tú (aquí representado con una H), tres droides, 
representados con sendas D, que colaboran con los marcianos en su 
ataque a la Tierra, y cierto número de zonas minadas (representadas 
mediante las X) que destruirán todo lo que entre en contacto con ellas. 

En este juego suceden muchísimas cosas de una jugada a otra. Esta es 


>>NAVES MARCIANAS EN LA TIERRA: O << 
ee >>NAVES MARCIANAS DESTRUIDAS: Oo << 


. . e .A.X. . . PTA JA ES 


[>] xs . . . 0, . E E A 
A A. STATE 


L 


-D. . . A. «X.H. . . . . 


1) 


>> Ataques sobrevividos: 5 << 


No es necesario decir que el objetivo del juego es impedir que los 
marcianos aterricen en nuestro planeta. La única manera de hacerlo es 
volar sus naves, lo que se consigue cayendo sobre ellas por sorpresa. 


Observa que las zonas minadas pueden ser fatales si llegas a entrar en 
contacto con ellas. 

Las muchas estrategias que uno puede intentar, unidas a la gran 
variedad de resultados posibles, convierten cada partida en un amenísimo 
pasatiempos. En algunas ocasiones, el ordenador parece concentrarse en 
hacer que los marcianos lleguen a la Tierra. En otras partidas, sin embar- 
go, maneja a los tres droides en un intento de aplastar al humano entre 
sus triples garras. Para ponértelo más difícil todavía, salvando así la 
posible ventaja que pueda darte el hecho de haber nacido en la Tierra, tú 
solamente puedes mover hacia arriba, hacia abajo, hacia la derecha y 
hacia la izquierda, mientras que los marcianos y los droides pueden 
hacerlo también en diagonal. Su posición se ve aún más favorecida al estar 
dotados de una mayor movilidad: mientras que tú sólo puedes avanzar de 
casilla en casilla, los marcianos y los droides tienen la posibilidad de elegir, 
de una a otra jugada, entre hacerlo de una en una o de dos en dos. 

Y aquí tenemos al primer marciano que logra aproximarse a la Tierra: 


>>NAVES MARCIANAS EN LA TIERRA: O << 
>>NAVES MARCIANAS DESTRUIDAS: 1 << 


] 


e... .«Xo ¿Ac .T.T.T. 


o . . - > $ . 0 O E 


L 
1 


. . . . . . » . “A.T.T. 


e «Xo . «Ho... «Anos. 


RN 
LJ LE) 


. . O e . . . . . . . . 
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>> Ataques sobrevividos: 9 << 


o 
UN 
Pp 
y 
p 
” 
=] 
o 


Unas cuantas jugadas más tarde todo lo que puedo hacer 
por las rutas del espacio a la búsqueda de las dos únicas naves marcianas 
que aún quedan vivas. Al hacerlo trato de mantenerme alejado de los tres 
droides, para lo cual utilizo como cobertura las zonas minadas (teniendo 
todo el cuidado de no caer en ellas): 


1 


e] 
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TN >>NAVES MARCIANAS EN LA TIERRA: 
>>NAVES MARCIANAS DESTRUIDAS: 


. - . . Mio - . E A A 


) e a O de Es 
Esa 


ñ a a oe dar 


PA] . «X. . . . . .H, . .A. 
«D.D.Xo .Xo .Xoa . . «. 


1eN 


a 


>> Ataques sobrevividos: 15 


Estoy a punto de cumplir mis objetivos: 


>>NAVES MARCIANAS EN LA TIERRA: 
>>NAVES MARCIANAS DESTRUIDAS: 


7 


. . o. .Xa . . «T.T.T. 


«Xo . o T.T.T. 


L) 


+... .. .«. . .« » oT.T.T. 


E 
) 
E 
Dx 
z ' 


1) 


. . K . . - . . so . . 


[] 


>> Ataques sobrevividos: 19 


E 


HO 


<< 


ZA A 
AN 


He conducido felizmente mi misión: 
Has sobrevivido a 20 ataques 


Has salvado la Tierra! 


Tu puntuacion total es: 


500 


Aquí tienes el listado. Conque ya puedes disponerte a hacer todo lo 
que esté en tu mano por liberar los cielos terrenos del gran Peligro Verde. 


A dd 


340 IF Q(A(J),B(J)+1)=0 THEN B(J)=B(J 


V ' 
I ' 

O | 2 REM «+ . )+1 ¡0 
| 3 REM * LOS MARCIANOS ATACAN «+ 350 IF M=72 THEN ABATIDA=ABATIDA+1:G0 
1-4 REM + * TO 370 | 

O OS REM 6 006 006040 DD M0 360 Q(A(J),B(J))=65 ! O 
! 10 REM 370 NEXT J 
1 20 CLS 380 REM 330461416164 7 

O | 30 GOTO 880: REM INICIALIZACION 390 REM DROIDES O 
1 40 REM aaa a6 dt dat a 0040010 400 FOR J=1 TO 3 ' 

! 50 REM ATAQUE HUMANO 410 Q(C(J),D(J))=0 ! 

O 1 60 IF INKEY<>"" THEN 60 420 G=C(J):H=D(J) ' O 
| 70 AS=INKEYS 430 IF RND(1)>.4 THEN 460 n 
¡ 80 IF A$="" THEN 70 440 IF C(J)>HX THEN C(J)=C(J)-1 ¡ 

O |! 90 IF AS<>"A" AND A$<>"Z" AND AS$<>"," 450 IF C(J)<HX THEN C(J)=C(J)+1 O 
AND AS$<>"." THEN GOTO 70 460 IF RND(1)>.35 THEN 490 ; 

1 100 ATAQUE=ATAQUE+1 470 IF D(J)>HY THEN D(J)=D(J)-1 | 

O | 110 G=HX: F=HY 480 IF D(J)<HY THEN D(J)=D(J)+1 O 
' 120 Q(HX,HY)=0 490 M=Q(C(J),D(J)) ! 

¡ 130 IF A$="," THEN HX=HX-1: 1F HX=0 TH 500 IF M=65 OR M=468 OR M=84 OR M=88 T |! 

O 1! EN HX=1:REM IZQUIERDA HEN C(J)=G:D(J)=H:GOTO 520 ¡O 
| 140 IF A$="." THEN HX=HX+1:1F HX=13 T 510 IF M=72 THEN Q(C(J),D(J))=42:MUER | 
; HEN HX=12:REM DERECHA =1:GOTO 550 1 

O | 150 IF A$="A" THEN HY=HY-1: IF HY=0 TH 520 Q(C(J),D(J)>=68 LO 
| EN HY=1:REM ARRIBA 530 NEXT J ! 
| 160 IF A$="Z" THEN HY=HY+1: 1F HY=10 T 540 REM 0006 06066 6 

O | HEN HY=9:REM ABAJO 550 REM IMPRESION DEL TABLERO ¡mO) 
| 170 IF Q(HX,HY)=68 OR Q(HX,HY)=88 THE 560 CLS ' 

' N MUERT=1:Q(HX,HY)=42:GOTO 550 570 PRINT ">>NAVES MARCIANAS EN LA TI 

O | 180 IF Q(HX,HY)=65 THEN ABATIDA=ABATI ERRA: "ASALVO"<<" ro 
| DA+1 580 PRINT ">>NAVES MARCIANAS DESTRUID 
1 190 IF Q(HX,HY)=84 THEN HX=G:HY=F AS: "ABATIDA"<<":*PRINT 

O |! 200 Q(HX,HY)=72 590 FOR A=1 TO 9 ¡O 
; 210 REM 414404 44 6 36 6 4 36 26 6 de 6 de 600 FOR B=1 TO 12 i 
¡ 220 REM ATAQUE MARCIANO 610 M=Q(B,A) ] 

O | 230 FOR J=1 TO 5 620 IF Q(B,A)=0 THEN M=32 O 
| 240 IF Q(A(J),B(J))<>65 THEN 370 630 PRINT TAB(6) CHR$(M3"."; | 
250 Q(A(J),B(J))=0 640 NEXT B 1 

O | 260 IF A(J)>9 AND B(J)<4 THEN Q(A(J), 650 PRINT:PRINT 150: 
| B(J))=841 ASALVO=ASALVO+1: GOTO 370 660 NEXT A 
270 REM IF RND(1)>.5 THEN 290 670 IF MUERT=1 OR ASALVO+ABATIDA=S TH 

O | 280 IF A(J)=12 THEN 360 EN 700 O 
l 290 IF Q(A(J)+1,B(J))=0 OR Q(A(J)+1,B 680 PRINT TAB(3)3">> Ataques sobreviv |! 

l  (3))=84 THEN A(J)=A(J)+1:GOTO 350 idos: "ATAQUE*<<" 1 

o) | 300 IF A(J)=12 OR B(J)=1 THEN 330 £90 GOTO 70 LO 
y 310 IF Q(A(J),B(J)-1)=0 OR Q(A(J),B(J 700 PRINT:PRINT "Has sobrevivido a "A | 
|. )-1)=84 THEN B(J)=B(J)-1:GOTO 350 TAQUE"ataques" 

O ! 320 IF Q(A(J)+1,B(J)-1)=0 OR Q(A(J)+1 710 PRINT "O 
1 ,B(J)-1)=84 THEN A(J)=A(J)+1:B(J)=B(J 720 PU=100*ABATIDA-SO*ASALVO 
Il. )-1:GOTO 350 730 IF ABATIDA=S THEN PRINT "Has salv 

O | 330 IF B(J)=9 THEN 350 ado la Tierra!'":GOTO 810 O) 
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oJCoo ooo. Oo 


740 IF ASALVO+ABATIDA=S THEN 780 


750 PRINT "Has muerto en tu valeroso" 
760 PRINT "intento de defender la Tie 
rra" 


770 GOTO 810 

780 IF ASALVO<S THEN 830 

790 PRINT TAB(6);5"Has fracasado” 

800 PRINT:PRINT "Las naves marcianas 
han aterrizado ya" 

810 PRINT:PRINT "Tu puntuacion total 
es: "PU 

820 END 

830 PRINT "Has conseguido una victori 
a parcial” 

840 PRINT:PRINT TAB(5)3"al destruir " 
ABATIDA 

850 PRINT TAB(8);5"maves marcianas" 
860 GOTO 810 

870 REM 264422636 36 3626 464-166 

880 REM INICIALIZACION 

890 DIM A(5),B(5),C(3),D(3),Q0(12,9) 
900 REM **SITUACION NAVES MARCIANAS+*++. 
910 FOR J=1 TO S 

920 READ A(J),B(J) 

930 Q(A(J),B(J))=65 

940 NEXT J 

950 REM **SITUACION DE LOS DROIDES+*+* 
960 FOR J=1 TO 3 

970 READ C(J),D(J) 

980 Q(C(J),D(J))=68 
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990 NEXT J 
1000 REM ** TIERRA %% 

1010 FOR J=1 TO 9 

1020 READ E,F 

1030 Q(E,F)=84 

1040 NEXT J 

1050 REM e HUMANO +» 

1060 0(5,8)=72 

1070 HX=5:HY=8 

1080 REM **SITUACION DE LAS MINAS** 
1090 FOR J=1 TO 12 

1100 X=INT(RND(1)*9)+1 

1110 Y=INT(RND(1)*9)+1 

1120 IF Q(X,Y)<>0 THEN 1100 

1130 Q(X,Y)=88 

1140 NEXT J 

1150 REM +** OTRAS VARIABLES ...* 

1160 ASALVO=0: REM NAVES MARCIANAS INT 
ACTAS 

1170 ABATIDA=0:REM NAVES MARCIANAS DE 
STRUIDAS 

1180 MUERT=0:REM SI ES=1, MUERTE DEL 
HUMANO 

1190 ATAQUE=O 

1200 GOTO 550 


1210 DATA 1,2,1,3,1,5,1,7,1,9 

1220 DATA 1,4,1,6,1,8 

1230 DATA 10,1,11,1,12,1,10,2,11,2,12 
2 

, 

1240 DATA 10,3,11,3,12,3 


Base 
Espacial 
2000 


Una extraña epidemia ha azotado a los habitantes de la BASE ESPA- 
CIAL 2000. En los cuarteles generales se ha recibido un mensaje desespe- 
rado y a ti te han enviado en misión con el suero necesario para salvar las 
vidas de los supervivientes. 

No obstante, las personas que controlaban el movimiento de la base 
por el espacio han caído con la plaga. La base se encuentra ahora a la 
deriva a muchos millones de millas de su verdadera posición. Así pues, lo 
primero que tienes que hacer es localizarla y después intentar llegar con tu 
nave hasta ella antes de que mueran todos sus habitantes. 

La Zona Galáctica dentro de la cual se encuentra la base es muy, muy 
extensa y está densamente poblada. No sólo hay otras bases en ese sector, 
sino que además un gran número de diferentes razas alienígenas —ningu- 
na de ellas aliadas con.la humanidad— han escogido esta Zona para vivir. 
En tu intento de llegar hasta la BASE ESPACIAL 2000 has de evitar el 
caer sobre las bases amigas y sobre los mucho menos amistosos alieníge- 
nas, además de asegurarte de que no te quedas sin combustible antes de 
que tu misión haya concluido. 

Al emprender esta búsqueda te aguardan diversos incidentes. Sólo unos 
cuantos de éstos serán activados en cada ejecución del programa, de modo 
que el juego variará considerablemente de una ejecución a otra. Asimismo, 
la posición de los objetos dentro de la Zona Galáctica (tú, los alienígenas, 
las bases espaciales y la BASE ESPACIAL 2000) cambia también de 
una partida a otra. 
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Una vez que ha distribuido el contenido de la Zona, el ordenador te 
dirá dónde te encuentras: 


Fecha del diario de a bordo: 1000 
Naves enemigas alcanzadas: O 


A A A A A A A e 2 € € e € o e e e e e e e o a 


**ENERGIA TOTAL: 300 


Si decides utilizar el scanner, el ordenador inspeccionará los sectores 


JLo 


En cada jugada 
ner y disparar: 


Quieres utilizar tu radar (S/N)? S 
>Atento al radar... 
>>M>>BM>> >>> 


NAVE ENEMIGA MAS CERCANA 
Lectura del radar: 1 


BASE ESPACIAL MAS CERCANA 
Lectura del radar: 1.414 


Largo alcance fijado 
para la B.E. 2000: 1201 


se ofrecen tres posibilidades: avanzar, utilizar el scan- 


Fecha del diario de a bordo: 1000 
Naves enemigas alcanzadas: Q 


**XENERGIA TOTAL: —300 


Quieres utilizar tu radar (S/N)? S 
>Atento al radar... 
>>M>>BM>>>>> 


NAVE ENEMIGA MAS CERCANA 


Lectura del radar: 1 A = 
BASE ESPACIAL MAS CERCANA [) 
Lectura del radar: 1.414 
Largo alcance fijado E 
para la B.E. 2000: 1201 lu) 
Quieres disparar fotones (S/N)? S AA 
CON QUE INTENSIDAD (2 A 8)7 5 E 
So, 


::3:: EN QUE DIRECCION (N,S,E,0)7 N 


Sector alcanzado: 1 ON 
. «. + NADA 


Sector alcanzado: 2 


. . NADA E 
Sector alcanzado: 3 sil 


. . -. NADA 


mueves por el espacio. No sólo has de tener cuidado con ello, sino que 
además has de mantenerte alerta para esquivar los ataques en el caso de 
que decidan dispararte desde una de las malditas colonias de alienígenas, 
como están a punto de hacerlo en este caso: 


Pena al ao e paca io0o e 

Fecha del diario de a bordo: 1000 

Naves enemigas alcanzadas: O 

“V”“Tus coordenadas galacticas: 17 2 7 

A O ¡PR 
ENERGIA TOTAL: 300 

Quieres utilizar tu radar (S/N)? S ) 

>Atento al radar... lloc 

>>M>>BM>>>>> 
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NAVE ENEMIGA MAS CERCANA 
Lectura del radar: 1 


[) 


BASE ESPACIAL MAS CERCANA 
Lectura del radar: 1.414 


Sin embargo, quien dispara eres tú, logrando alcanzar una nave mar- 
ciana: 


NAVE INVASORA DESTRUIDA EN 17 5 


L] 


Sector alcanzado: 5 
. . » NADA 


**ENERGIA TOTAL: 284.525 


1) 


Fecha del diario de a bordo: 1001 
Naves enemigas alcanzadas: 1 


1) 


*XENERGIA TOTAL: 284.52 


] 


La suerte no siempre te acompaña en tu misión y, como ahora vere- 
mos, a veces cometes errores que pueden costarte muy caro: 


e 


Fecha del diario de a bordo: 1006 
Naves enemigas alcanzadas: O 


a e e e e o PP € 7 0 o a e 


“VTus coordenadas galacticas: 30 29 


**ENERGIA TOTAL: 135.912 


Quieres utilizar tu radar (S/N)? N 


“VoTus coordenadas galacticas: 30 29 


|, 
UL) 


Quieres mover la nave (S/N)? N 


Quieres disparar fotones (S/N)? S 
2::: EN QUE DIRECCION (N,S,E,0)7? E 


Sector alcanzado: 1 

HAS DISPARADO CONTRA UNA BASE AMIGA! 
Sector alcanzado: 2 ...NADA 

Sector alcanzado: 3 

NAVE INVASORA DESTRUIDA EN 30 32 


Sector alcanzado: 4 ...NADA 
Sector alcanzado: 5 ...NADA 
NAVE INVASORA DESTRUIDA EN 30 35 


Y el universo continúa probándote: 


V VU V VV V V V V VU V V VY V VV V VV VVV V VVV NN V VN 
Senales recibidas de la nebulosa de 
Cabeza de Caballo, a 337 Parsecs de 
distancia, nos indican una medida ex- 
cesiva de sodio en una nube de polvo 
interestelar. 

Debemos utilizar el 12% de la energia 
para fortalecer nuestros escudos 
protectores... 

Bancos de energia 52.73125 

Despues de reforzar los escudos, la 
energia de los bancos es de 41.13037 


**ENERGIA TOTAL: 41.13037 


> PELIGRO ! < 
> PELIGRO ! < 
> PELIGRO ! < 
RESERVAS DE ENERGIA: *BAJAS* 


TIENES QUE ENCONTRAR PRONTO 
UNA BASE ESPACIAL 


JOUUDUD 


Pero si eres listo (y tienes un poco de suerte), quizá logres salvar el día 


(cuando no al mundo): 


2 


a 


= 
E, 


Í 


=] 
> 


: 
L 


O 


3 
e, 


- 
|: 


3 


Í 


y 


= 
E, 


L 


= 
$) 


: 
L 


- 


a) 


= 
z) 


| 


Ñ 


Fecha del diario de a bordo: 1011 
Naves enemigas alcanzadas: 2 


A A A e € € € € € € 0 


**ENERGIA TOTAL: 30.6803 


> PELIGRO ! < 
> PELIGRO ! < 
> PELIGRO ! < 
RESERVAS DE ENERGIA: *BAJAS+* 


TIENES QUE ENCONTRAR PRONTO 
UNA BASE ESPACIAL 


Quieres utilizar tu radar (S/N)? S 
>Atento al radar... 

>MM>B>M>B>>BM>M 

.. «BASE ESPACIAL 2000 LOCALIZADA '!... 
>A>B>> DAA >> 

NAVE ENEMIGA MAS CERCANA 

Lectura del radar: 2.898 


NAVE ESPACIAL MAS CERCANA 
Lectura del radar: 3.162 


Proximidad de la Base Espacial 2000 
3.605 
Esta dentro del alcance 


“VTus coordenadas galacticas: 30 25 


Quieres mover la nave (S/N)? S 
En que direccion (N,S,E,O0) E 


AUN HAY 1012 RESIDENTES VIVOS EN LA 
BASE ESPACIAL QUE SE SALVARAN POR EL 
SUERO QUE LES HAS TRAIDO. 


TU PUNTUACION FUE: 1078 


Sólo para mostrarte lo abarrotada que puede estar la Zona Galáctica, 
he modificado el programa ligeramente en relación con el que aquí se 
incluye, a fin de imprimir una parte de la Zona. He puesto un asterisco al 
lado de tu nave (N) y otro junto a la evasiva BASE ESPACIAL 2000 (BE) 
para ayudarte a localizarlas. Como ves, éste no es un juego muy apropiado 
para aquellos que carecen de cierto poder de concentración: 


MM M Mm BB Bam om M 
Mm BB B BBM M 
MOB Mm B B A 
” M *N MoOMB M M 
B B B M 
B B M B Mm 
M M M M mom Y) 
BOM BM OM B B MOB 
B BOB B M 
M M “MOB M 
M B M po B 
B M B B B M Mm ' | 
B B MOB M M B 
BM M M Ma 
B Mm M SN: 
M *BE MB MOMBBB B 
B OB OBOB q. ”..oomom Mm 
m —”MBOB ” B MM M B 


Bravo, capitán, ha llegado el momento de aceptar el reto y emprender 
el camino para salvar a los habitantes de la BASE ESPACIAL 2000 de la 
atroz epidemia que les está diezmando: 


230 Q=INT (S2/2+.5) 


1 REM 006 6006 636 6 206 6 MEME 


J I 
I ' 

O | 2 REM « * 240 IF P<1 THEN P=1 ¡0 
l 3 REM * BASE ESPACIAL 2000 + 250 IF Q<1 THEN Q=1 ¡ 
1 4 REM o» * 260 IF P>8 THEN P=8 ' 

O y SS REM 6060-6060 26 06-626 260620000300 2006 270 IF Q>8 THEN Q=8 O 
i 10 REM 280 IF P>4 THEN 380 
' 20 GOSUB 2530: REM INICIALIZACION 290 IF Q=1 THEN PRINT "Pegaso" , 

O 1 3O GOSUB 190: REM NOMBRE DEL CUADRANT 300 IF Q=2 THEN PRINT "Acuario" : O 
¡y E 310 IF Q=3 THEN PRINT "Eridano” 
! 40 IF ACCIDENTE<S AND RND(1)<.15 THEN 320 IF Q=4 THEN PRINT "Hiadas" 

O ¡  GOsuB 1880 330 IF Q=5 THEN PRINT "Can Mayor" LO 
1 50 GOSUB 530: REM CONDICION DE LA NAV 340 IF 0O=6 THEN PRINT "Osa Mayor" 
' E 350 IF Q=7 THEN PRINT "Hercules" ! 

O ! 60 GOSUB 690: REM INFORMACION DE PROX 360 IF Q=8 THEN PRINT "Cefeo” ¡ O 
h IMIDAD 370 GOTO 460 ! 
1 70 GOSUB 1040: REM ENTRADA DE MOVIMIE 380 IF Q=1 THEN PRINT "Dorado" 1 

O l NTO 390 IF Q=2 THEN PRINT "Triangulo" O 
' 80 IF B$="N" THEN 120 400 IF Q=3 THEN PRINT "Auriga" 
¡ 90 GOSUB 190 410 IF Q=4 THEN PRINT "Nubecula Mayor | 

O n 100 GOSUB 530 O 
! 110 GOSUB 690 420 IF Q=5 THEN PRINT "Escorpio" 
¡ 120 GOSUB 1290: REM ENTRADA DEL COMAN 430 IF Q=6 THEN PRINT "Cuervo" ! 

O ! DO DE DISPARO 440 IF Q=7 THEN PRINT "Sagitario" LO 
1 130 GOSUB 530 450 IF Q=8 THEN PRINT "Cisne" 
h 140 GOSUB 1570: REM FUEGO INVASOR PRINT "oo 

O ! 150 DIABSDIAS+ | e ÉÁ ¡ 
1 160 B$="" 470 PRINT "Fecha del diario de a bord | 
| 170 GOTO 30 03 "DIAS, "Naves enemigas alcanzadas: "A 

O ¡ 180 REM 436-1636 34 16-36-16 36-36-36 36-36 36 36-36-36 36-10 36 K ' O 
1 190 REM NOMBRE DEL CUADRANTE 480 PRINT "===>. 
1. 200 CLS3 PRINT2* PRINT O... | oo " ; 

O i 210 PRINT ":::1: Estas en el sector de 490 PRINT ""V”“Tus coordenadas galacti  ' O 
oo cas: "S1382 . 
220 P=INT(S1/4+.5) 500 PRINT "=== ' 
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oOo0O0O0O0O O OOOO Oo 0os0osom0 


OoOoOoOoO0o os0 


O 


O 


510 RETURN 

520 REM 364316363-3616-26-4-36 36163636163 

530 REM ESTADO DE LA NAVE 

540 PRINT TAB(12) "**ENERGIA TOTAL: " 


ENERGIA 
550 IF ENERGIA>1 THEN 600 
560 PRINTi3 PRINT: PRINT "Has agotado 


tus bancos de energia" 

570 PRINT: PRINT "Tu viaje ha termina 
do" 

580 PRINT: PRINT "Has sobrevivido dur 
ante"DIAS-1000"dias" 

590 PRINT: PRINT "Has destruido 
naves invasoras":GOTO 1830 


"ak" 


600 IF ENERGIA>5S0 THEN 660 

610 FOR H=1 TO 3 

620 PRINT TAB(H*3)5"> PELIGRO ! <" 
630 NEXT H 

640 PRINT "RESERVAS DE ENERGIA: *BAJA 
se" 

650 PRINTI¿PRINT TAB(S)5 "TIENES QUE E 


NCONTRAR PRONTO":PRINT TAB(10)3 "UNA B 

ASE ESPACIAL" 

660 FOR T=1 TO 10001NEXT T 

670 RETURN 

680 REM 41046101633 

690 REM RADAR 

700 P=200:1A1=2001 AB=2001 PROX=0 

710 PRINT: PRINT "Quieres utilizar tu 
radar (S/N)"; 

720 INPUT C$ 

730 IF C$<>"N" AND C$<>"S" 
740 IF C$="N" THEN RETURN 
750 ENERGIA=ENERGIA-. 25 
760 PRINT ">Atento al radar...” 

770 X1=51-41 X2=S1+41 Y1=S2-2: Y2=S2+2 
780 IF X1<1 THEN X1=1 

790 IF X1>32 THEN X1=32 

800 IF Y1<1 THEN Yi=1 

810 IF Y1>16 THEN Yiz=16 

820 IF X2<1 THEN X2=1 

830 IF X2>32 THEN X2=32 

840 IF Y2<1 THEN Y2=1 

850 IF Y2>16 THEN Y2=16 

860 FOR X=X1 TO X2 

870 PRINT ">"; 

880 FOR Y=Y1 TO Y2 

890 P=SQR ( (X-S1)+ (X-S1)+(Y-S2)* (Y-S2) 
) 
900 


THEN 720 


P=INT(P*1000)/1000 
Q10 IF A(X,Y)=NA OR A(X,Y)=0 THEN 950 
920 IF A(X,Y)=TA THEN PROX=P:* PRINT " 
. . +. BASE ESPACIAL 2000 LOCALIZADA !... 
"” 

3 
930 IF A(X,Y)=AL AND P<A1l THEN Al=P+ 
PRINT "M"5:GH=X:GJ=Y 
940 IF A(X,Y)=SB AND P<AB THEN AB=P:2 
PRINT "B";5 
950 NEXT Y 
960 NEXT X 
970 IF A1<>200 THEN PRINT:PRINT: PRIN 
T "NAVE ENEMIGA MAS CERCANA": PRINT " 
Lectura del radar: "Al 
980 IF AB<>200 THEN PRINT: PRINT 
E ESPACIAL MAS CERCANA": PRINT 
ra del radar: "AB 
990 IF PROX<>0 THEN PRINT: PRINT "Pro 
Ximidad de la Base Espacial 2000: "PRO 


"BAS 
"Lectu 
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Xz PRINT TAB(8)5"Esta dentro del alca 
nce" 

1000 IF PROX=0 THEN PRINT: PRINT "Lar 
go alcance fijado":PRINT "para la B.E 
- 2000: "100* (S1-B1)+(S2-B2) 

1010 FOR T=1 TO 1000: NEXT T 

1020 RETURN 

1030 REM 443036 36-16 16-26 2-3636 36 36-16 6 36-36-4016 16 246 

1040 REM ENTRADA DEL MOVIMIENTO 

1050 PRINT+ PRINT ""4Y”“ Tus coordenada 
s galacticast "S1;3S2 

1060 PRINT: PRINT "Quieres mover la n 
ave (S/N)"; 

1070 INPUT Bs 

1080 IF BS<>"N" AND B$<>"s" 
1090 IF B$="N" THEN RETURN 
1100 ENERGIA=ENERGIA-2.725 
1110 PRINT TAB(6)3 "En que direccion 
(N,S,E,0)"3 
1120 INPUT AS 
1130 IF AS<>"N" 
E" AND A$<>"0" THEN 1120 

1140 IF A$="N" AND S1=1 THEN RETURN 
1150 A(S1,S2)=NA 

1160 IF A$="0" AND S2=1 THEN RETURN 
1170 IF A$="E" AND S2=16 THEN RETURN 
1180 A(S1,S2)=0 
1190 IF As="0" 
1200 IF A$="E" 
1210 IF AS$="S" THEN S2=S2-1 

1220 IF A$="N" THEN S2=S2+1 

1230 IF A(S1,S2)=AL THEN PRINT "TE HA 
S POSADO EN UNA NAVE ENEMIGA '!'":z ENE 
RGIA=0:FOR T= 1 TO 1000: NEXT T:RETUR 
N 


THEN 1070 


AND AS$<>"S" AND AS$<X>"” 


THEN S1=S1-1 
THEN S1=S1+1 


1240 IF A(S1,S2)=SB THEN PRINT "HAS E 

NTRADO EN UNA BASE ESPACIAL": ENERGIA= 

ENERGIA+55 

1250 IF S1=B1 AND S2=B2 THEN 1690: RE 

M ENCUENTRO DE LA BASE ESPACIAL 

1260 FOR T= 1 TO 1000: NEXT T 

1270 RETURN 

1280 REM 3414-46-36 46-16-3636 30-44-1616 16 3644 

12790 REM MANDO DE DISPARO 

1300 PRINT: PRINT "Quieres disparar + 

otones (S/N)"3 

1310 INPUT AS 

1320 IF A$<>"S" AND AS<>"N" 

1330 IF A$="N" THEN RETURN 

1340 PRINT TAB(8)3"CON QUE INTENSIDAD 
(24A8)"3 

1350 INPUT K 

1360 IF K<2 OR K>8 THEN 1350 

1370 ENERGIA=ENERGIA-K+*2.5 

1380 PRINTw3 PRINT "::2:: EN QUE DIRECC 

ION (N,S,E,0)"3 

1390 INPUT AS 

1400 IF A$<>"N" AND A$<>"S" AND AS<>" 

E" AND A$<>"0" THEN 1390 

1410 M=511N=S2 

1420 FOR J=1 TO K 

1430 PRINT "Sector alcanzado:"J 

1440 IF A$="0" THEN M=M-1 

1450 IF A$="E" THEN M=M+1 

1460 IF A$="S" THEN N=N-1 

1470 IF As$="N" THEN N=N+1 

1480 IF M<1 OR M>32 OR N<1 OR N>16 TH 

EN 1520 
1490 IF 


THEN 1310 


A(M,N)=AL THEN PRINT "NAVE IN 


O 


O 


o0o00.0O0(Q0O OOOO OA OOOO OA OA OA OOOO OO 


o00o ooo o OO oO O OosOoomOo O 


ooo o O 


O 


O 


VASORA DESTRUIDA EN "M3N32AK=AK+13A(M, 

N)=01GH=01GJ=0:PRINT:GOTO 1530 

1500 IF A(M,N)=SB THEN PRINT "HAS DIS 

PARADO CONTRA UNA BASE AMIGA !"2A(M,N 
)=0: ENERGIA=ENERGIA/2:GOTO 1530 

1510 IF M=B1 AND N=B2 THEN PRINT "HAS 
DESTRUIDO LA BASE ESPACIAL 2000 '”:E 
NERGIA=0:GOTO 1800 
1520 PRINT TAB(25)5 
1530 NEXT J 

1540 FOR T=1 TO 1000: NEXT T 

1550 RETURN 

1560 REM 446-4644146-36-04630-10246 

1570 REM FUEGO INVASOR 

1580 IF GH=0 OR GJ=0 OR RND(1)>.5 THE 
N RETURN 

1590 PRINT “INVASORES SITUADOS EN 
3GJ:PRINT "NOS ESTAN DISPARANDO, 
TAN..." 

16400 FOR T= 1 TO 1000: NEXT T 
1610 R=INT(RND(1)+*4) 

1620 IF R=0 THEN PRINT TAB(7)3 "HAN 
FALLADO EL TIRO !!" 

1630 IF R=1 THEN PRINT "EL INVASOR NO 
S HA DADO EN ESTRIBOR":PRINT: PRINT T 
AB(7) "DESPERFECTOS MENORES": ENERGIA= 
ENERGIA-4.75 

1640 IF R=2 THEN PRINT "EL INVASOR HA 
DISPARADO CONTRA LA SECCION DE LA 
TRIPULACION":+PRINT: PRINT TAB(7)3 "D 

ESPERFECTOS DE CONSIDERACION": ENERGI 

A=ENERGIA-18.25 

1650 IF R=3 THEN PRINT3 "EL INVASOR H 

A DESTRUIDO EL PUENTE DE MANDO": PRIN 
Tia PRINT TAB(7) "DESPERFECTOS GRAVES" 
: ENERGIA=ENERGIA-30.55 


"...NADA”"3PRINT 


“GH 
CAPI 


1660 FOR T= 1 TO 1000: NEXT T 

1670 RETURN 

1680 REM 4046-40-36-36 36-06-16 16-40-46 36 36-16-36 36 36-46 3046 

1690 REM FINAL DE LA BUSQUEDA 

1700 PRINT3 PRINT 

1710 PRINT  *—=======nnmn mmm 
PA Jl 

1720 PRINT TAB(8)3 "LO HAS LOGRADO! ” 
1730 PRINT "=== 
rr ” 

1740 PRINT "HAS ENCONTRADO LA BASE ES 


PACIAL 2000" 
1750 GENTE=1000+INT(RND(1)*1000) 


1770 PRINT "AUN HAY"5GENTE5 "RESIDENTE 
S VIVOS EN LA" 

1780 PRINT "BASE ESPACIAL QUE SE SALV 
ARAN POR EL SUERO QUE LES HAS TRAIDO. 
1790 PRINT  "--=-=-=============mmmmmme 
crm “ 

1800 PRINT "TU PUNTACION FUE: "3 

1810 PRINT INT(GENTE+DIAS+ENERGIA+AK- 
1000) 

1820 END 

1830 PRINT "=== 
1840 PRINT "Lamentablemente, no has p 


odido encon-trar la Base Espacial 200 
O, que esta en"; 

1850 PRINT B15B2 

18650 GOTO 1800 


1870 REM 330363303086 20 DEIA 
1880 REM CONTRATIEMPOS 
1890 ACCIDENTE=ACCIDENTE+1 


1900 PRINT "99990 RADARARADADA DAMA 


ANAAARAAANA A 


1910 PRINT "vvvvvvvvvVVVVVVVVVVVVVVVVV 

VVVVVVVVVVV " 

1920 ON ACCIDENTE GOSUB 1960,2040,214 

0,2270,2410 

1930 FOR T=1 TO 1000:NEXT T 

1940 RETURN 

1950 REM 3443636 36-46-1646 40-36 6360 M0 

1960 PRINT "Tu mave ha entrado en una 

zona de emision de rayos gamma em 

itidos por un agujero negro." 

1970 FOR T=1 TO 1000: NEXT T 

PRINT TAB(8) "La nave se ha desv 
por las emisiones. 


S1=S1+1:52=S2-1 

IF S1>32 THEN S1=32 

IF S2<1 THEN S2=1 

RETURN 

A ii 

PRINT "El informe de navegacion 

detecta una" 

2050 PRINT "actividad atomica anormal 
de magnitu-des 4.8 y 10.13 procedent 
es del aste-" 

2060 PRINT "roide Kaptein, aparenteme 
nte dirigi- da hacia rayos UV, A y B. 
" 


2070 FOR T= 1 TO 1000: NEXT T 

2080 PRINT "Eso significa que nuestro 
radar puedeperder precision" 

2090 B1=B1+2:B2=B2-2 

2100 IF B1>33 THEN B1=32 

2110 IF B2<1 THEN B2=1 

2120 RETURN 

2130 REM 340-2461 46 1646 16-40 36-20 3420640 

2140 PRINT "Senales recibidas de la n 
abulosa de Cabeza de Caballo, a 337 
Parsecs de" 

2150 PRINT "distacia, nos indican una 
medida ex-cesiva de sodio en una nu 
be de polvo interestelar” 

2160 FOR T= 1 TO 1000: NEXT T 

2170 PRINT "Debemos utilizar el 12% d 
e la energia" 

2180 PRINT "para fortalecer nuestros 
escudos protectores..." 

2190 FOR T=1 TO 500: NEXT T 

2200 PRINT "Bancos de energia” ENERGI 
A 

2210 ENEGIA=.78*ENERGIA 

2220 FOR T= 1 TO 500: NEXT T 

2230 PRINT "Despues de reforzar los e 
scudos, la” 

2240 PRINT "energia de los bancos es 
de" ENERGIA 

2250 RETURN 

2260 REM 3363622626262 -26-16-d6-10 20260 

2270 PRINT "El control indica una for 
macion protogalactica en la nebu 
losa M16. La reaccion proton-proton 
genera" 
2280 PRINT 
1 orden de 


"temperaturas internas de 
17 X 10% K 
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2290 PRINT "Tenemos que alejarnos rap 
idamente > 

2300 PRINT TAB(10); "de esta zona." 
2310 FOR T= 1 TO 1000: NEXT T 

2320 PRINT TAB(8)5"CORRIGE EL CURSO!" 
2330 FOR Tz= 1 TO 1000: NEXT T 

2340 S1=S1+INT(RND (1)+3) 

2350 S2=S2+INT(RND (1)+3) 

2360 IF S1>32 THEN S1=32 

2370 IF S2>16 THEN S2=16 

2380 FOR T= 1 TO 1000: NEXT T 

2390 RETURN 

2400 REM 446364636 36-16 36-14-36 36-16-26 363646 

2410 PRINT "PELIGRO...PELIGRO..." 
2420 FOR T= 1 TO 300: NEXT Te IF RND( 
1)>.7 THEN 2410 

2430 PRINT "AGUJERO NEGRO DENTRO DE"R 
ND(1)*1000:PRINT "UNIDADES, EN DIRECC 
TON"RND (1)*1000"FRONTAL" 

2440 FOR T= 1 TO 500: NEXT T 

2450 PRINT: PRINT "El efecto de la le 
nte de gravitacion" 

2460 PRINT "esta causando una gran di 
storsion en las imagenes galacticas, 
tal como" 

2470 PRINT "puede verse en la iniciac 
ion del proceso" 

2480 M=S2:152=S1:1S1=M 

2490 PRINT "Estamos cayendo a gran ve 
locidad..." 

2500 IF RND(1)>4 THEN 2490 

2510 RETURN 

2520 REM 4436222 46-36-16-16-46 46-34 161 

2530 REM INICIALIZACION 

2540 CLS 


PRINT: PRINT "Por favor, espera. 


DIM A(32,16) 

AL=ASC ("M")2 REM INVASORES 
AK=0: REM INVASORES MUERTOS 
NA=ASC ("N"): REM TU NAVE 
SB=ASC("B"): REM BASE ESPACIAL 
TA=ASC("X"): REM ¡OBJETIVO! DE J 
BASE ESPACIAL 2000 

DIAS=1000 

ENERGIA=300 

REM **CREACION DEL UNIVERSO*. 
FOR M= 1 TO 100 

PRINT "."3 

FOR N= 1 TO 2 

C=INT (RND(1)+*32)+1 
D=INT(RND(1)*16)+1 

IF N=1 THEN A(C,D)=AL 

IF N=2 THEN A(C,D)=SB 

NEXT N 

NEXT M 

REM + BASE ESPACIAL 2000 we 
B1=INT(RND(1)+32)+1 
B2=INT(RND(1)+*16)+1 
A(B1,B2)=TA 

REM +* POSICION INICIAL, NAVE ws. 
S1=INT(RND(1)+32)+1 
S2=INT(RND(1)*16)+1 

IF S1=B1 OR S2=B2 THEN 2790 
A(S1,S2)=NA 

GENTE=0 

GH=0: GJ=0 

ACCIDENTE=0 

RETURN 


o. Oo 


O 


ooo Oo O 


O 
O 
O 
O 
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TRES 
E 


A la 
búsqueda 
del Riemannian 


Podría decirse que la ciencia ficción ocupa en la mente del hombre 
moderno el espacio que antaño llenaban los cuentos de brujas y apare- 
cidos. 

Las historias de ciencia ficción constituyen algunos de los mitos funda- 
mentales de nuestro tiempo. Esto explica, en parte, la gran popularidad 
alcanzada por los juegos informáticos basados en aquellos supuestos de la 
ciencia ficción que ya han pasado a formar parte de la información que 
acumulamos en nuestra cabeza. Ciertos programas de televisión, como V, 
o ciertas películas, como La Guerra de las Galaxias, han dado origen a un 
sinfín de juegos muy conocidos, al tiempo que las novelas de algunos 
escritores, como Asimov y Heinlein, han servido a los creadores de juegos 
informáticos para extraer un material literario con el que dar vida a un 
universo todavía relativamente desconocido para los Aventureros del Es- 
pacio. ¿Quién no aceptaría gustoso el convertirse en un caballero del Jedi? 

A LA BUSQUEDA DEL RIEMANNIAN pertenece a esa categoría de 
juegos que, basados en la “historia futura”, serán comprendidos y acepta- 
dos por cualquiera que haya leído una novela tan espléndida como 
Solaris. 

Al inicio de la misión, le dices al ordenador tu nombre y el de tu nave: 


POR FAVOR, INTRODUCE TU NOMBRE ES] 
? MARIO El 


5 AHORA, EL NOMBRE DE TU NAVE 
Lo) ? STAR-SEEKER 


Tu tarea consiste en lanzarte intrépidamente por aquellos concurridos 
sectores del Espacio Conocido, que tantos millones de hombres han surca- 
do antes que tú. La expedición parte de la Tierra (situada, claro está, en el 
Sector Tierra de la Galaxia) y tú, como capitán de la misma, has de 
asegurarte de que tu nave y tripulación resisten el tiempo suficiente para 
atravesar la Galaxia y volver sanos y salvos a la Tierra. 

Parece ser que hace mucho tiempo (en torno al 2048, en el Antiguo 
Calendario), una raza alienígena particularmente benévola aterrizó en la 
Tierra y, al ver el pobre estado de nuestra tecnología nos ofrecieron un 
gigantesco ordenador, muy inteligente además, que habría de ayudarnos 
en la realización de múltiples tareas. Esencialmente perezosa, la humani- 
dad empezó a darle cada vez más responsabilidades, hasta que éste termi- 
nó por encargarse de todos los asuntos importantes del planeta. 

Hubo algo que los benévolos alienígenas se olvidaron de advertirnos. 
Para funcionar, el ordenador consume átomos de un escasísimo metal 
precioso llamado Riemannian. Así pues, cada cierto tiempo se le ha de 
recargar con este mineral. En el Espacio Conocido hay muy poco Rieman- 
nian y tu misión consiste en localizarlo, excavarlo y transportarlo hasta la 
Tierra. 

Tras introducir el nombre de tu nave, en la pantalla aparecerá un 
informe de este tipo: 


HARI AAA A AAA A A 


ESTAS EN EL SECTOR TIERRA 
DE LA GALAXIA 
FRA AAA A AA A A A 


a 
LI 


COMBUSTIBLE: 73.25 
RESERVAS DE DINERO: 104 
OXIGENO: 65.5 
RIEMANNIAN: O 
PROVISIONES: 55 


FECHA SIDERAL: 1 
FAR ARA A A A 


ERRE A AA + 


Ñ 
ES 


FAR AAA A A AA A AA AA 


Como la demanda de Riemannian es igualmente intensa en otros 
planetas, por todas partes te encontrarás con gentes desesperadas en su 
busca. Si tus reservas de dinero descienden demasiado, posiblemente ten- 


gas que vender una parte del mineral que tanto trabajo te ha costado 
conseguir, sólo para poder hacer frente a lujos tales como un poco de 


oxígeno y alimentos. 


Enseguida descubrirás que este juego te exige una gran capacidad de 
decisión y gestión. Aunque el objetivo primordial de tu misión es encon- 
trar y transportar el Riemannian hasta la Tierra, no ha de pasar mucho 
tiempo antes de que el simple hecho de lograr sobrevivir de un día para 


otro se convierta en el objetivo prioritario. 


Si lo deseas puedes comerciar en los planetas “aptos para el co- 


mercio”: 


TE ESTAS APROXIMANDO A UN PLANETA 
APTO PARA EL COMERCIO 
HERA AA+ 


ES EL PLANETA ASIMOV III 
E 


LOS HABITANTES DE ASIMOV ITI 
DESEAN COMPRAR RIEMANNIAN Y ASIMISMO 
TE VENDERÁN PROVISIONES, COMBUSTIBLE 


Y OXIGENO 
AAA AAA AAA A ¿A 


INTRODUCE TU ELECCION: 


— VENDER RIEMANNIAN 

- COMPRAR PROVISIONES 
COMPRAR COMBUSTIBLE 
- COMPRAR OXIGENO 

- CONTINUAR EL VUELO 


02aqN- 
' 


HA AAA 


TIENES 104 CREDITOS 


e 


3 
») 


_ 
L 


Asimismo, has 


7 


y 


¡ 


B 


L 


= 
L 


> 


L 


- 
z 


- 


L 


Pa, 


y 


L 


> 
z 


L 


- 


L 


LOS COMERCIANTES VENDEN PROVISIONES 
A 11 CREDITOS LA UNIDAD 


CUANTAS UNIDADES QUIERES COMPRAR? 5 
> EL TRATO HA QUEDADO CERRADO < 


de reponer las reservas de combustible de tu nave: 


TE ESTAS APROXIMANDO A UNA ORBITA DE 
SUMINISTRO DE COMBUSTIBLE 

No. DE LA ESTACION DE COMBUSTIBLE 1 

HH AAA AAA AAA AAA 


NIVEL ACTUAL DE TUS DEPOSITOS: 645.75 


PRI RR IAEA AA+ 


PULSA LA TECLA 1 SI QUIERES ATERRIZAR 
O LA 2 SI QUIERES CONTINUAR EL VUELO 
SIGUE LA SECUENCIA COORDINADA 
PARA QUE EL ATERRIZAJE SEA SEGURO... 
1 — PULSA LA TECLA 2 

2 -— PULSA LA TECLA 3 

3  — PULSA LA TECLA 4 

4 -— PULSA LA TECLA 4 

5 -— PULSA LA TECLA 5 

6 — PULSA LA TECLA 9 

7 — PULSA LA TECLA 7 

8 -— PULSA LA TECLA 2 

9 — PULSA LA TECLA 2 


10 —- PULSA LA TECLA 1 


AAA 
HAS LOGRADO FINALIZAR LA SECUENCIA... 


AHORA TIENES EL TERRENO DESPEJADO 
PARA ATERRIZAR SIN PELIGRO... 


AQUI EN LA ESTACION 1 , EL COSTE DEL 
COMBUSTIBLE ADECUADO PARA EL STAR-SEE 
KER 

ES DE 13 CREDITOS POR UNIDAD. 
OS 


TIENES 49 CREDITOS 


CUANTO COMBUSTIBLE QUIERES COMPRAR? 3 


EL NIVEL DE TUS DEFOSITOS ES 68.75 


Y TIENES 10 CREDITOS 


Por supuesto, no todo el mundo en el Espacio Conocido es tan 
amante de la paz y amistoso como lo somos aquí en la Tierra: 


EL ORDENADOR DE LA NAVE INDICA QUE 
HA DETECTADO UNA NAVE ALIENIGENA 
APROXIMANDOSE HACIA NOSOTROS... PERO 
AUN NO HA PODIDO IDENTIFICARLA. SERA 
UNA NAVE AMIGA U HOSTIL”? 


IRE AA RA  A A + 


EL ORDENADOR ACABA DE IDENTIFICAR EL 
ORIGEN DE LA NAVE ALIENIGENA 


SON LOS TUU EPSONI 
AUNQUE TODAVIA NO PUEDE DETERMINAR 
QUIENES SON SUS ALIADOS... 
>> >AGUARDA<<< 


A 


3 


a 


36 


LOS TUU EPSONI ESTAN ALIADOS 


) 


CON NUESTRO IMPERIO... 
PERMITELES SUBIR A BORDO 


HI AAA AAA AI AAA IA A+ 


L 
a 


LOS TUU EPSONI TE OFRECEN 


1 - COMBUSTIBLE 
2 — OXIGENO 


) 


$ QUE ELIGES? +4 
HA AA A A RA AAA AA 


> HAS ELEGIDO EL COMBUSTIBLE< 


¡Te has salvado esta vez! 

Es impotante no olvidar, en el barullo de la supervivencia cotidiana en 
el espacio, que estás llevando a cabo esta misión primordialmente para 
conseguir un extraño mineral necesario para todos nosotros: 


ESTAS EN EL SECTOR CARINA 
DE LA GALAXIA 
HR AI ee ee ee 


) 


COMBUSTIBLE: 16 

RESERVAS DE DINERO: 49 

OXIGENO: 51 RIEMANNIAN: O 
PROVISTONES: 36 

FECHA SIDERAL: 11 
O a 0 


do 


IA 


HAS ATERRIZADO EL STAR-SEEKER EN 
EL ASTEROIDE MINERO HERMU II 


É 


TU ORDENADOR DETECTOR DE MINERAL. 
GENERA DOS NUMEROS INFERIORES A 10. 
SI ERES CAPAZ DE PREDECIR SIN EQUIVO- 
CARTE LA TERCERA COORDENADA, PODRAS 
EXTRAER EL PRECIOSO RIEMANNIAN 


0 


ARRAY 


LAS DOS PRIMERAS COORDENADAS SON 
1W Y S 


INTRODUCE TU FREDICCION PARA LA 
TERCERA COORDENADA: 

A -— ESTA ENTRE 1 Y 5 

B- ES IGUAL A1OS 

C -— ES MAYOR QUE 5 


e E 
LA TERCERA COORDENADA ES 8 


EL ORDENADOR INFORMA QUE AHORA PUEDES 
EXTRAER RIEMANNIAN EN HERMU TI 


LA VELOCIDAD CON LA QUE TECLEES 
LA LETRA INDICADA DETERMINARA LA 
CANTIDAD DE RIEMANNIAN QUE PUEDES 
EXTRAER. PREPARADO 


PULSA LA TECLA T 
HAS EXTRAIDO 13.45 TONELADAS 


bo 


Jqobo 


Aunque hayas logrado extraer el precioso Riemannian, no cantes victo- 


ria, pues aún no sabes lo que te aguarda: 


aTI3NCI1BN!! 


C3PITON MARIO , 

aLGe A%Da Mal 2N NU3STRES sIStEMaS... 
el ERD3NADER D3 1A NAV3 INDIRA QU3 
S3 eSTA aPROxIMANOO HACiA NESATRAS 
UN CcAMPR D3 FUBRZ) EXTRAZO... 


ATINCI1EN! 
AT3NC1BN! 
AT3NC1EN! 
AT-3NC12N' 
AT3NC1EN! 


EL GRDINADER $*A DIT3CTADHE UN? NOVZ 
“LISNIBEN" 3N LS COOrD3N*D"S 37-23 


O 


JoOouL 


Al final, pese a todo, si te las arreglas para tomar unas cuantas 
decisiones correctas, verás aparecer nuestro querido planeta en la pantalla. 
No obstante, si te quedaras sin oxígeno, combustible o provisiones, el 
juego se daría inmediatamente por terminado, apareciendo entonces en la 
pantalla un informe de tu actuación: 


SAA AAA AAA A AA A A A A A AA 


A 


AHORA ESTAS EN TIERRA 
DE VUELTA A CASA 
E 


ñ 


COMBUSTIBLE: 23 

RESERVAS DE DINERO: 511.2 

OXIGENO: 20.5 

RIEMANNIAN: O 

PROVISIONES: 24 

FECHA SIDERAL: 24 

FIA AAA AI AA AA AA 


1) 


HAS VUELTO SANO Y SALVO A LA TIERRA 
BIEN HECHO! 


1) 


VAMOS A VER AHORA QUE HAS HECHO EN 
ESTE VIAJE! 
HAS LOGRADO EXTRAER O TONELADAS 

DE RIEMANNIAN 
NO HAS LOGRADO ALCANZAR EL PRINCIFAL 
OBJETIVO QUE ERA EXTRAER RIEMANNIAN 


do 


MI CAPITAN MARIO ,TU FUNTUACION EN 
ESTE VIAJE A BORDO DEL STAR-SEEKER 
HA SIDO: 


1] 


DESPUES DE ATRAVESAR EL SECTOR 1 , 
e 


DESPUES DE ATRAVESAR EL SECTOR 2, 
69 


L) 


DESPUES DE ATRAVESAR EL SECTOR 23 , 
165 


ú 


DESPUES DE ATRAVESAR EL SECTOR 4 , 
165 


L 
¡2% 


DESPUES DE ATRAVESAR EL SECTOR 5 , 
411 


) 


DESPUES DE ATRAVESAR EL SECTOR é , 
866 


) 


O 


L 
LY 


TU PUNTUACION FINAL ES: 922 
A 


El juego es bastante complicado, pero no te apures demasiado ya que 
el ordenador te irá presentando los problemas de uno en uno, de modo 
que, mientras no pierdas de vista las reservas de oxígeno y otras necesida- 
des vitales, sólo tendrás que hacer frente a una situación peligrosa a un 
mismo tiempo; sólo una vez que ésta se haya resuelto te encontrarás ante 
la siguiente. 

Como no existen mapas exactos de ciertas regiones del Espacio Cono- 
cido, me he tomado la libertad de bautizar algunos sectores, planetas y 
razas alienígenas. La mayoría de los nombres utilizados en esta simulación 
son un homenaje a personas reales que están, o han estado, relacionadas 
con la investigación espacial. 

Por ejemplo, el metal Riemannian se llama así por el matemático 
Bernhard Riemann, quien creó un sistema geométrico que estudia las 
complejidades del espacio y que no puede describirse tridimensionalmente 
como el tradicional euclidiano. Esta nueva geometría, llamada Geometría 
de Riemann, es endemoniadamente complicada, pero describe con todo 
acierto cosas tales como la botella de Klein (que sólo tiene una superficie, 
de tal modo que el interior y el exterior son una misma cosa) y los efectos 
de la gravitación cuando un cuerpo se aproxima a otro. 

Una de nuestras razas alienígenas recibe el nombre de Herzsprung por 
el astrónomo sueco Ejnar Hertzsprung quien, en colaboración con el 
astrónomo americano Henry Norris, descubrió, en 1914, un método para 
determinar la distancia de las estrellas con relación a la Tierra, mediante el 
examen de su brillo y clase espectral. Otra raza, la Lallemand, se llama así 
por el astrónomo francés André Lallemand, a quien se debe la teoría que 


39 


posibilitó el hacer fotografías con electrones (en lugar de emplear la luz) de 
ciertas estrellas oscuras y alejadas, utilizando un mecanismo llamado la 
cámara electronográfica. 

Los diferentes sectores espaciales responden a los nombres que damos 
en la Tierra a ciertas estrellas y constelaciones, aunque me he tomado la 
libertad de cambiarlas un poco de sitio. Los planetas aptos para el 
comercio representan a un brillante grupo de personas: 


ASIMOV III.—Llamado así por el buen doctor Asimov a quien todos 
conocemos. 

GALILEO.—No creo que sea necesario decirte quién es. 

POSTA DE BARNARD.—Presumiblemente este planeta está en la órbita 
de la estrella de su mismo nombre, la más próxima a la Tierra (a una 
distancia de 1,8 parsecs, o 5,9 años luz) descubierta en 1916 por el 
astrónomo americano Edward Barnard. Se piensa que es muy posible 
que esta nebulosa estrella roja tenga un sistema planetario. 

PRAESEPE.—Un grupo de estrellas de la constelación de Cáncer. 


Dejo ahora a tu elección el averiguar cómo se llaman los restantes 


planetas 


iii 


180 IF RND(1)>.82 THEN GOSUB 700: REM 


“aptos para el comercio” 


MARCIANOS ENEMIGOS 


1] 

I 
2 REM + + 190 IF RND(1)>.6 THEN GOSUB 1340: REM ; O 
3 REM *A LA BUSQUEDA DEL RIEMANNIAN+* RESERVAS DE RIEMANNIAN t 
4 REM + + 200 IF RND(1)>.7 THEN GOSUB 1960: REM | 
A aiii ESTACION DE COMBUSTIBLE 1 O 
10 REM 210 IF RND(1)>.6 THEN GOSUB 2500: REM: 
20 GOSUB 5350: REM INICIALIZACION MARCIANOS AMIGOS ! 
30 OXIGENO=0XIGENO-3.5: IF OXIGENO<1 T 220 IF RND(1)>.97 THEN 2980:REM AGUJE | O 
HEN OXIGENO=0 RO NEGRO 
40 FUEL=FUEL-4.75: 1F FUEL<1 THEN FUEL 230 IF RND(1)>.6 THEN GOSUB 3310: REM 
=0 PLANETA APTO PARA EL COMERCIO pO 
50 PROVIS=PROVIS-2.45: IF PROVIS<1 THE 240 IF RND(1)>.9 THEN GOSUB 4250: REM 
N PROVIS=0 ENCUENTRO CON LA LEGENDARIA "ARCA ESP 
60 FE=FE+1 ACIAL" O 
70 SITUA=SITUA+1 250 IF RND(1)>.851 THEN GOSUB 4830:RE |! 
80 GOSUB 290: REM BORRADO DE PANTALLA M ATAQUE ESPACIAL 
90 IF OXIGENO<10 AND OXIGENO>O THEN P 260 GOSUB 5670 O 
RINT "**CUIDADO CON EL NIVEL DE OXIGE 270 GOTO 30 ¡ 
NO" 280 REM 30263636436 46-46-26 36-16-2636 36-26-2626 42626 64616 ¡ 
100 IF OXIGENO=0 THEN PRINT "TANQUES 290 REM PANTALLA DE INFORMACION O 
DE OXIGENO AGOTADOS":GOTO 430 300 CLS ! 
110 IF SITUA=24 THEN PRINT "HAS VUELT 310 Ls="" ( 
O SANO Y SALVO A LA TIERRA":GOTO 430 320 PRINT ! O 
120 IF PROVIS<10 AND PROVIS>O THEN PR 330 PRINT "++++4++4++4+4++444+4 44 A PI ol 
INT "HAS DE AUMENTAR LA RESERVA DE VI HA ++..” h 
VERES" 340 IF SITUA<13 THEN PRINT "ESTAS EN O 
130 IF PROVIS=0 THEN PRINT "TE HAS QU EL SECTOR "A$S(SITUA):PRINT TAB(S)3 "D ¡ 
EDADO SIN PROVISIONES":GOTO 430 E LA GALAXIA" 
140 IF FUEL<10 AND FUEL>O THEN PRINT 350 IF SITUA >12 THEN PRINT "AHORA ES 1 O 
">>ATENCION: HAY POCO COMBUSTIBLE<<" TAS EN "5A$(25-SITUA):PRINT "DE VUELT n 
150 IF FUEL=0 THEN PRINT "NO QUEDA CO A A CASA" 
MBUSTIBLE":GOTO 430 360 PRINT "+++4++ +++ e e II ++ i O 
160 PRINT "++44+++++4+ ++ rr rrr+++++ Hr...” 1 
+" 370 PRINT "COMBUSTIBLE: "FUEL, "RESERVA |! 
170 IF RND(1)>.5 THEN 230 S DE DINERO: "DINERO E 

' 


380 PRINT "OXIGENO: "OXIGENO, "RIEMANNI 


oO 00 0. 0 “0. 0:00. O. 0:00. O "00. 0..-0: 0. O 0 


O 


O 


AN: "RIEMAN 

390 PRINT "PROVISIONES: "INT(PROVIS)," 

FECHA SIDERAL: "FE 

400 PRINT "+++++4+4+4+r + A III Ie 

HA +." 

410 RETURN 

420 REM 43646363616 26 26 26 0H MAA 

430 REM FIN DE LA BUSQUEDA 

440 IF SITU=24 THEN PRINT 
1) 

450 PRINT:PRINT 

E HAS HECHO EN" 

460 PRINT "ESTE VIAJE!" 

470 PRINT "HAS LOGRADO EXTRAER"RIEMAN 
"TONELADAS" :PRINT TAB(7)5"DE RIEMANNI 

AN" 

480 IF RIEMAN=0 THEN PRINT "NO HAS LO 
GRADO ALCANZAR EL PRINCIPAL":PRINT "O 
BJETIVO QUE ERA EXTRAER RIEMANNIAN" 
490 GOSUB 5670 

500 PRINT "MI CAPITAN "3N$3" 

UACION EN" 

510 PRINT "ESTE VIAJE A BORDO DEL 
$:PRINT "HA SIDO: " 

520 PRINT 

530 X=0:PQ=0 

540 GOSUB £40 

550 PQ=PQ+3*FUEL 2: GOSUB 660 

560 PQ=PQ+4*PROVIS:GOSUB 560 

570 PQ=PQ+55*RIEMAN: GOSUB 660 

580 PQ=PQ+12+*0X IGENO: GOSUB 660 

590 PQ=PQ+45. 5*CAPITAL: GOSUB 660 

600 PQ=PQ-2*HAL IENS+4*RESTACI+S*FALIE 

NS-2*ARCA+3. 4*TP 

610 PRINT:PRINT 

620 PRINT "++++4+++ +4 + rr rrorr+r+o?+ 

He.” 

630 PRINT "TU PUNTUACION FINAL ES: "IN 

T(PQ) 

640 PRINT "+++4+44+ 4 A +++ 

+++.” 

650 END 

660 X=X+1:PRINT "DESPUES DE ATRAVESAR 
EL SECTOR"X",":PRINT INT(PQ):PRINT 
670 GOSUB 5670 

680 RETURN 

690 REM 436460616 16 36-26 6 26 6-26 6166 ME HE 

700 REM ALIENIGENAS ENEMIGOS 

710 HALIENS=HALIENS+1: IF HALIENS>2 TH 
EN RETURN 


"BIEN HECHO 


"VAMOS A VER AHORA QU 


, TU PUNT 


"3s 


720 R$="SAURONIAN" 

730 Y=INT(RND(1)+8) 

740 IF Y=1 THEN R$="HARADRIM" 

750 IF Y=2 THEN R$="NEBUL IAN" 

760 IF Y=3 THEN R$="SPROUL" 

770 IF Y=4 THEN R$="ARECIBO" 

780 IF Y=5 THEN R$="HERTZSPRUNG" 

790 IF Y=6 THEN R$="LALLEMAND" 

800 IF Y=7 THEN R$="COUNTERMIXIAN" 
810 PRINT "LA "35S$;" ESTA SIENDO ATAC 
ADA" 

820 PRINT "UNA ESCUADRA DE NAVES "3R$ 


830 GOSUB 5670 
840 CODE=INT ((RND (1) * 10000) *100+(RND ( 


1)*100)) 

850 PRINT:PRINT "PARA VENCER A LOS TE 
MIBLES "R$ 

860 PRINT "TIENES QUE CONFUNDIR EL CO 
NTROL" 


870 PRINT "DE SU ORDENADOR ENVIANDO U 
NA SENAL":PRINT "CODIFICADA, DE TAL M 
ANERA QUE EL" 


880 PRINT "ORDENADOR CREA QUE TU NAVE 

ES TAMBIEN" 

890 PRINT "UNA NAVE..."5R$S 

900 PRINT "ATENTO AL CODIGO" 

910 PRINT "EN CUANTO DESAPAREZCA DE L 

A PANTALLA" 

920 PRINT "HAS DE ENVIARLO A LAS NAVE 
"R$; "AS" 


930 PRINT:PRINT 
IR EL CODIGO” 
940 FOR T=1 TO 1400+RND (1)+400 
950 NEXT T 

960 PRINT "EL CODIGO ES >"CODIGO 
970 FOR T=1 TO S00:NEXT T 

980 CLS 

990 IF INKEYS<>"" THEN GOTO 990 
1000 PRINT:PRINT 


“PREPARADO PARA RECIB 


1010 PRINT "ENVIA ESTE CODIGO Y TRATA 
"3PRINT "DE CONFUNDIRLOS" 

1020 INPUT Q 

1030 GOSUB 5670 

1040 PRINT:PRINT 

1050 IF Q=CODIGO THEN GOTO 1230 

1060 PRINT "OH, NO... TE HAS EQUIVOCA 
DO!" 

1070 PRINT "HAS MARCADO"Q"Y" 

1080 PRINT "EL CODIGO ERA"CODIGO 

1090 GOSUB 5670 

1100 PRINT:PRINT 

1110 PRINT "LOS "3R$;3" NOS ATACAN..." 


1120 'GOSUB 5470 

1130 IF RND(1)>.5 THEN PRINT "HAN DES 
TRUIDO UNO DE NUESTRO TANQUES DE OXIG 
ENO! ": OXIGENO=INT (3*0X IGENO/4) : GOSUB 

5670: CLS: RETURN 

1140 Q=INT(RND(1)+*3) 

1150 IF Q=0 THEN Y$="BLINDAJES” 

1160 IF Q=1 THEN Y$="CASCO" 

1170 IF Q=2 THEN Y$="MOTORES" 

1180 PRINT “SU ATAQUE HA CAUSADO DANO 
S":PRINT "EN NUESTROS"; Y$ 

1190 PRINT:PRINT "HAY UN ESCAPE EN NU 
ESTROS DEPOSITOS DE COMBUSTIBLE" 


1200 FUEL=INT (3*FUEL/4) 

1210 GOSUB 5670 

1220 RETURN 

1230 PRINT:PRINT "HAS LOGRADO..." 
1240 PRINT TAB(8)5 "REPELER SU ATAQUE" 
1250 PRINT:PRINT "LAS NAVES "3R$;" SE 
ALEJAN” 

1260 PRINT "DEL SECTOR DEL ESPACIO EN 
EL QUE SE ENCUENTRA EL "3S$ 

1270 GOSUB 5670 

1280 PRINT "ENHORABUENA, MI CAPITAN " 
¿NS 

1290 GOSUB 5670 

1300 PRINT TAB(8)3 "CONTINUAMOS EL VUE 

Lo" 

1310 GOSUB 5670 

1320 RETURN 

1330 REM 44446 2626-26-26 46 26-26-2616 26 06H 

1340 REM RESERVAS DE RIEMANNIAN 

1350 Q=INT(RND(1)+5) 

1360 IF Q=0 THEN Y$="TAU III" 

1370 IF Q=1 THEN Y$="ERIDANI IV" 

1380 IF Q=2 THEN Y$="DRACONIS II" 


010 0-0 


O 


O 


Ox - O 


O. 0 0 0 O. 000.0 


oOoOO OOO O O OOOO O 


O 


O 


1390 
1400 
1410 
EN” 

1420 
1430 


IF Q=3 THEN Y$="HERMU II” 
IF Q=4 THEN Y$="HIDRI XVI" 
PRINT "HAS ATERRIZADO EL "3S5$;" 


PRINT "EL ASTEROIDE MINERO "3YS 

GOSUB 5670 

1440 PRINT:PRINT 

1450 PRINT "TU ORDENADOR DETECTOR DE 

MINERAL GENERA DOS NUMEROS INFERI 
ORES A 10." 

1450 PRINT "SI ERES CAPAZ DE PREDECIR 
SIN EQUIVO-CARTE LA TERCERA COORDENA 
DA, PODRAS" 
1470 PRINT 

NNIAN" 

1480 GOSUB 5670 

1490 PRINT "+++++++4+4+++4 44444 4 A 4 +++. 
Herr.” 


“EXTRAER EL PRECIOSO RIEMA 


1500 Q1=INT(RND(1)*9)+1 

1510 Q2=INT(RND (1) +9) +1 

1520 IF Q2<=Q1 THEN GOTO 1500 

1530 Q3=INT(RND(1)+9)+1 

1540 IF Q3<Q1 GOTO 1530 

1550 PRINT "LAS DOS PRIMERAS COORDENA 
DAS SON":PRINT Q1" Y "Q2 

1560 GOSUB 5670 

1570 PRINT:PRINT "INTRODUCE TU PREDIC 
CION PARA LA TERCERA COORDENADA: 
ul 

1580 PRINT TAB(3);3"A - ESTA ENTRE"Q1" 
Y”"a2 

1590 PRINT TAB(3);"B - ES IGUAL A"Q1" 
o0”Q2 

16500 PRINT TAB(3);3"C - ES MAYOR QUE"Q 
2 

1610 PRINT: INPUT TS 

1620 IF T$<"A" OR T$>"C" THEN GOTO 16 
10 

1630 PRINT TAB(6)3"LA TERCERA COORDEN 


ADA ES"Q3 

1640 IF TS$="A" 
EN GOTO 1720 
1650 IF T$="B" 
HEN GOTO 1720 
1660 IF Ts$="C" 
20 

1570 GOSUB 5670 
1680 PRINT:PRINT 
A QUE NO PUEDES" 
1690 PRINT "EXTRAER RIEMANNIAN EN "5Y 
$ 

1700 GOSUB 5670 

1710 RETURN 

1720 PRINT:PRINT "EL ORDENADOR INFORM 
A QUE AHORA PUEDES" 


AND Q3>Q1 AND Q3<Q2 TH 
AND (Q3=Q01 OR Q3=02) T 


AND Q3>02 THEN GOTO 17 


"EL ORDENADOR INFORM 


1730 PRINT "EXTRAER RIEMANNIAN EN "5Y 
s 

1740 GOSUB 5670 

1750 PRINT "LA VELOCIDAD CON LA QUE T 
ECLEES" 

1760 PRINT "LA LETRA INDICADA DETERMI 
NARA LA CANTIDAD DE RIEMANNIAN QU 
E PUEDES" 

1770 PRINT "EXTRAER. PREPARADO" 

1780 FOR T=1 TO 400+RND (1)+*400 

1790 NEXT T 

1800 M=INT(RND(1)+26) +65: M6=CHRS$ (M) 
1810 IF INKEY$<>"" THEN GOTO 1810 
1820 PRINT:PRINT 


42 


1830 

1840 

1850 

1860 

1870 

1880 

.25 

1890 PRINT:PRINT 

ELADAS" 

1900 GOSUB 5670 

1910 PRINT:PRINT "AHORA CONTINUAREMOS 

NUESTRO VUELO..." 

1920 RIEMAN=RIEMAN+TX 

1930 GOSUB 5670 

1940 RETURN 

1950 REM 46336 36-236 96-06-36 6-26 36 96d MIE MIE IAEA 

1960 REM ESTACION DE COMBUSTIBLE 

1970 RESTACI=RESTACI+1 

1980 PRINT "+++4+++4+++4+4+4+4444 44 4 A btt 

o 

1990 PRINT "TE ESTAS APROXIMANDO A UN 

A ORBITA DE"*PRINT TAB(6)3 "SUMINISTR 

O DE COMBUSTIBLE" 

2000 PRINT "No. DE LA ESTACION DE COM 

BUSTIBLE"RESTACI 

2010 PRINT"+++++++r+rrrrrrrrrrr rro r+r+r+rr 

He r++.” 

2020 PRINT "NIVEL ACTUAL DE TUS DEPDS 

ITOS: "FUEL 

2030 IF INKEYS$<>"" THEN 2030 

2040 PRINT "44444444444 AA AA AA A ++ 

A 

2050 GOSUB 5670 

2060 PRINT "PULSA LA TECLA 1 SI QUIER 

ES ATERRIZAR" 

2070 PRINT "O LA 2 SI QUIERES CONTINU 

AR EL VUELO" 

2080 T$=INKEYS$ 

2090 IF Ts$<>"1" 

2080 

2100 IF T$="2" THEN RETURN 

2110 PRINT "SIGUE LA SECUENCIA DE COO 

RDENADAS" 

2120 PRINT "PARA QUE EL ATERRIZAJE SE 

A SEGURO...” 

2130 GOSUB 5670 

2140 J=1 

2150 IF INKEYS$<>"" THEN GOTO 2150 

2160 K$=STR$(INT(RND(1)+9)+1) 

2170 K$=RIGHTS(K$, 1) 

2180 TR=0 

2190 PRINT J" 

2200 PRINT 

2210 T$=INKEYS$ 

2220 TR=TR+1 

2230 REM MODIFICA EL 110 DE LA LINEA 
SIGUIENTE A FIN DE QUE TU 
SISTEMA PRODUZCA MEJORES 

RESULTADOS 

2240 IF TR>110 THEN PRINT "HAS TARDAD 

O DEMASIADO! "*GOSUB 5670: RETURN 

2250 IF T$="" THEN GOTO 2210 

2260 IF T$<>K$ THEN PRINT T$;"ESTA MA 

L":GOSUB 5670: RETURN 

2270 IF J<10 THEN J=J+1:GOTO 2160 

2280 PRINT "+++4+444++44+444+4444 4H 4 4 ++ 

HA IIA +" 

2290 PRINT "HAS LOGRADO FINALIZAR LA 

SECUENCIA..." 


TX=0 

PRINT TAB(8)5"PULSA LA TECLA "M$ 
TX=TX+1 

P$=INKEYS 

IF P$<>MS$ THEN GOTO 1850 
TX=(400-TX)/20: IF TX<1 THEN TX= 


"HAS EXTRAIDO"TX"TON 


AND T$<>"2" THEN GOTO 


- PULSA LA TECLA "Ks 
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2300 PRINT "AHORA TIENES EL TERRENO D 
ESPEJADO PARA ATERRIZAR SIN PELIGR 
OD...” 


2310 GOSUB 5670 
2320 PC=13+INT(RND(1)+8) 


2330 PRINT "AQUI EN LA ESTACION"RESTA 
CI", EL COSTE DEL" 

2340 PRINT "COMBUSTIBLE ADECUADO PARA 
EL "35s$ 

2350 PRINT "ES DE"PC"CREDITOS POR UNI 
DAD." 

2360 PRINT "++++4+4+4 A AAA IIA e+ 
He.” 

2370 PRINT "TIENES"DINERO"CREDITOS" 


2380 IF DINERO<PC THEN PRINT "ASI QUE 
CON ESO NO PUEDES COMPRAR NI SIQUIER 

A UNA UNIDAD":GOSUB 5670: RETURN 

2390 PRINT:PRINT "CUANTO COMBUSTIBLE 

QUIERES COMPRAR"3 

2400 INPUT NEC 

2410 IF NEC*PC>DINERO THEN PRINT "NO 

TIENES SUFICIENTE DINERO":GOTO 2390 

2420 FUEL=FUEL+NEC 

2430 DINERO=D INERO-PC*NEC 

2440 GOSUB 5670 

2450 PRINT:PRINT 

OSITOS ES"FUEL 

2460 PRINT:PRINT 

DITOS” 

2470 GOSUB 5670 

2480 RETURN 

2490 REM 364416 46-16-16 36-46-16 46-16 26 36-163 

2500 REM MARCIANOS AMIGOS 

2510 FALIENS=FALIENS+1: 1F FALIENS>3 T 

HEN RETURN 

2520 PRINT "++4+4+4++++ e e AI AA XX + 

HA AAA ++” 

2530 M=INT(RND(1)+7) 

2540 IF M=0 THEN Y$="HE” IDANI" 

2550 IF M=1 THEN Y$="BETA LEPOIIS"” 

2560 IF M=2 THEN Y$="GAMRA GARMA" 

2570 1F M=3 THEN Y$="KEOIMUMI" 

2580 IF M=4 THEN Y$="DRACONMH" 

2590 IF M=5 THEN Y$="TUU EPSONI" 

2600 IF M=6 THEN Y$="YYDRONICA" 

2610 PRINT "EL ORDENADOR DE LA NAVE 1 

NDICA QUE" 

2620 PRINT 

ENIGENA" 

2630 PRINT "APROXIMANDOSE HACIA NOSOT 

ROS... PERO" 

2640 PRINT "AUN NO HA PODIDO IDENTIFI 

CARLA. SERA" 

2650 PRINT "UNA NAVE AMIGA U HOSTIL?" 

2660 GOSUB 54670 

2670 PRINT "++++4+++44 4 A AI eeeb+ 

AAA ++" 

2680 PRINT "EL ORDENADOR ACABA DE IDE 

NTIFICAR EL ORIGEN DE LA NAVE ALIENIG 

ENA" 

2690 PRINT:*PRINT TAB(5)3"SON LOS "3YS 

2700 GOSUB 5670 

2710 PRINT "AUNQUE TODAVIA NO PUEDE D 

ETERMINAR QUIENES SON SUS ALIADOS. . 
» 


“EL NIVEL DE TUS DEP 


"Y TIENES"DINERO"CRE 


"HA DETECTADO UNA NAVE ALI 


2720 PRINT TAB (8)5">>>AGUARDA<<<" 
2730 GOSUB 5670 

2740 PRINT "+++++4444444 4 II ee 
Her.” 


2750 PRINT "LOS "5Y$5" ESTAN ALIADOS" 

2760 GOSUB 5670 

2770 1F RND(1)>.4 THEN 2940 

2780 PRINT “CON NUESTRO IMPERIO... 
PERMITELES SUBIR A BORDO" 

2790 GOSUB 5670 

2800 PRINT "+++++44+4+++ 44 e tr 

He.” 

2810 PRINT "LOS "3Y$3" TE OFRECEN" 

2820 PRINT 

2830 PRINT TAB(9)3"1 - COMBUSTIBLE" 

2840 PRINT TAB(9)3"2 - OXIGENO" 

2850 IF INKEYS<>"" THEN GOTO 2850 

2860 PRINT:PRINT TAB(8)3"+** QUE ELIGE 

S? $u" 


2870 TS$=INKEYS 

2880 IF T$<>"1" AND T$<>"2"THEN 2870 

2890 PRINT"+++4+4+ 4 A A +++ 

He." 

2900 IF TS$="1"” THEN PRINT TAB(4)3"> H 

AS ELEGIDO EL COMBUSTIBLE<" : FUEL=FUEL 
+INT(RND (1)+20)+19 

2910 IF T$="2" THEN PRINT TAB(6)3"> H 
AS ELEGIDO EL OXIGENO <":0XIGENO=0XIG 

ENO+INT (RND (1)+*30) +29 

2920 GOSUB 5670 

2930 RETURN 
2940 PRINT 
HUYE" 

2950 L$=YS 
2960 GOTO 5180 

2970 REM 3436326 16-36-2636 2-16 36 6 

2980 REM AGUJERO NEGRO 

2990 FOR J=1 TO 12 

3000 PRINT TAB(J)5"> PELIGRO!! <" 
3010 FOR T=1 TO 200:NEXT T 

3020 PRINT TAB(13-J)5"> PELIGRO!! <" 
3030 FOR T=1 TO 200:NEXT T 

3040 NEXT J 

3050 GOSUB 5670 

3060 CLS 

3070 GOSUB 5670 

3080 PRINT:PRINT 

3090 PRINT "EL "3S5$;" 

ORBIDO"” 

3100 PRINT TAB(9);"”POR UN AGUJERO NEG 

ROo!!" 

3110 

3120 

3130 

3140 


"CONTRA NUESTRO IMPERIO... 


ESTA SIENDO ABS 


GOSUB 5670 

CLS 

GOSUB 5470 

FOR K=1 TO 7 

3150 FOR J=1 TO 10 

3160 PRINT TAB(J+2*K)5"QUE LO ARRASTR 
A HACIA SU INTERIOR" 

3170 NEXT J 

3180 NEXT K 

3190 CLS 

3200 GOSUB 5470 

3210 FOR J=1 TO 5 

3220 FOR K=1 TO 5 

3230 PRINT TAB(J)5"CORTADAS TODAS LAS 
COMUNICACIONES" 

3240 NEXT K 

3250 NEXT J 

3260 GOSUB 5670 

3270 CLS 

3280 GOSUB 5670 

3290 END 

3300 REM 336363646 16-36-36-2 26 10H III IE III EMMA 


O 


0000 OOOO O OOOO oOOoo —O0oOOoO0ooOooOomOo Oo 


pa 


O 


O 


O. 0-0: 20 ¿0-0 00: 0.010. (0 “0 “0 


o.0 0 O 


O 
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3310 REM PLANETA APTO PARA COMERCIAR 

3320 TP=TP+1 

3330 IF TP>15 THEN TP=15 

3340 PRINT' "+4++4+44++444444 44H SI AI A ¿++ 

HA IIA ++" 

3350 PRINT "TE ESTAS APROXIMANDO A UN 
PLANETA APTO PARA EL COMERCIO" 

3360 PRINT "+++++4+4++++++++++4+ +44 +++ 

HI +." 

3370 GOSUB 5470 

3380 PRINT "ES EL PLANETA "5XS(TP);5 

3390 IF TP=15 THEN PRINT RND(1)x*6+1 E 
LSE PRINT 

3400 PRINT "+++++4+4++444+4+44+4 444 HI HA + 
HI +." 

3410 PRINT "LOS HABITANTES DE 
) 

3420 PRINT "DESEAN COMPRAR RIEMANNIAN 
Y ASIMISMO TE VENDERAN PROVISIONES, 
COMBUSTIBLE Y OXIGENO” 

3430 PRINT "+++++4+4++4++444 44 br 
Hr...” 

3440 GOSUB 5670 

3450 IF INKEYS<>"" THEN 3450 


"5XS (TP 


3460 PRINT "INTRODUCE TU ELECCION: ":P 
RINT 

3470 PRINT TAB(3)3"1 -— VENDER RIEMANN 
IAN" 

3480 PRINT TAB(3)3"2 - COMPRAR PROVIS 
IONES" 

3490 PRINT TAB(3)3"3 - COMPRAR COMBUS 
TIBLE" 

3500 PRINT TAB(3);"4 - COMPRAR OXIGEN 
o" , 

3510 PRINT TAB(3);5"5 - CONTINUAR EL Y 
UELO" 

3520 T$=INKEYS 

3530 IF TS$< "1" OR T$>"5" THEN GOTO 3 
520 


3540 IF T$<>"1" THEN CLS 
3550 IF T$="5" THEN RETURN 
3560 PRINT "+++4+++44444444 4 IIA A b++ 
He" 
3570 IF T$="2" 
3580 IF T$="3" 
3590 IF T$="4" 
3600 IF T$="1" 
3610 GOTO 3520 
3620 IF RIEMAN<1 THEN PRINT "NO TIENE 
S NADA PARA VENDER! !":GOSUB 54670:PRIN 
T TAB(2)5"POR FAVOR, INTRODUCE OTRA O 
PCION":GOTO 3520 
3630 PRINT:PRINT 
DE RIEMANNIAN” 
3640 PRINT "CUANTAS TONELADAS QUIERES 
VENDER"5 
3650 INPUT VENTA 
3660 IF VENTA>RIEMAN THEN GOTO 3650 
3670 MO=50+INT(RND (1) +50) 
3680 PRINT "LOS COMERCIANTES OFRECEN 
"MO:PRINT "CREDITOS POR TONELADA"” 
3690 PRINT "LO ACEPTAS? (S/N)"5 
3700 INPUT U$z IF U$<>"S" AND US<>"N" 
THEN GOTO 3700 
3710 IF U$="S" 


THEN GOTO 3790 
THEN GOTO 3940 
THEN GOTO 4090 
THEN GOTO 3620 


"TIENES"RIEMAN"TON. 


THEN GOTO 3740 
3720 IF U$="N" AND RND(1)>.7 THEN DIN 
=DIN+INT(RND(1)%6)+3:PRINT "AHORA OFR 
ECEN"DIN"CREDITOS":2GOTO 3690 
3730 PRINT "NO QUIEREN ANDAR REGATEAN 


DO":GOSUB 5670: RETURN 


3740 PRINT "TRATO HECHO! " 

3750 GOSUB 5670 

3760 DINERO=DINERO+VENTA*MO 

3770 RIEMAN=RIEMAN-VENTA 

3780 RETURN 

3790 REM ** COMPRAR PROVISIONES +*+* 
3800 PRINT "TIENES"DINERO"CREDITOS" 
3810 Y=INT(RND(1)+9)+6 

3820 PRINT:PRINT "LOS COMERCIANTES VE 
NDEN PROVISIONES" 

3830 PRINT "A"Y"CREDITOS LA UNIDAD" 
3840 IF Y>DINERO THEN PRINT "NO TE AL 


CANZA NI PARA UNA SOLA UNIDAD":GOTO 3 

440 

3850 PRINT:PRINT 
IERES COMPRAR" 3 

3860 INPUT CANTIDAD 

3870 IF CANTIDAD=0 THEN GOTO 3440 

3880 IF CANTIDAD*+Y>DINERO THEN PRINT 
"NO TIENES DINERO PARA ESA CANTIDAD": 

GOSUB 5670:GOTO 3860 

3890 PRINT TAB(3)3"> EL TRATO HA QUED 

ADO CERRADO <" 

3900 GOSUB 5670 

3910 DINERO=DINERO-Y*CANTIDAD 

3920 PROVIS=PROVIS+CANTIDAD 

3930 RETURN 

3940 REM +** COMPRAR COMBUSTIBLE «+++ 
3950 PRINT "TIENES"DINERO"CREDITOS" 
3960 Y=INT(RND(1)+8)+16 

3970 PRINT:PRINT "LOS COMERCIANTES VE 
NDEN COMBUSTIBLE" 

3980 PRINT "A"Y"CRÉDITOS POR UNIDAD" 
3990 IF Y>DINERO THEN PRINT "ASI QUE 
EL PRECIO ES DEMASIADO ALTO PARA TUS 
RESERVAS DE DINERO" 

4000 PRINT "CUANTAS UNIDADES QUIERES 
COMPRAR" 5 

4010 INPUT CANTIDAD 

4020 IF CANTIDAD=0 THEN GOTO 3440 
4030 IF CANTIDAD*Y>DINERO THEN PRINT 
"NO PUEDES COMPRAR ESA CANTIDAD": GOSU 
B 5670:GOTO 4010 

4040 PRINT:PRINT TAB(4)5"> EL COMBUST 
IBLE YA ES TUYO <" 

4050 GOSUB 5670 

4060 DINERO=DINERO-Y*CANTIDAD 

4070 FUEL=FUEL+CANTIDAD 

4080 RETURN 

4090 REM ** COMPRAR OXIGENO 1% 


"CUANTAS UNIDADES QU 


4100 PRINT "DISPONES DE"DINERO"CREDIT 
os" 

4110 Y=INT(RND(1)+*6)+25 

4120 PRINT:PRINT "LOS COMERCIANTES VE 
NDEN OXIGENO" 

4130 PRINT "A"Y"CREDITOS EL TANQUE" 
4140 IF Y>DINERO THEN PRINT "DE MODO 


QUE NO LO PUEDES COMPRAR POR EL MOMEN 
TO":GOTO 3440 
4150 PRINT:PRINT 
ERES COMPRAR" 3 
4160 INPUT CANTIDAD 

4170 IF CANTIDAD=0 THEN GOTO 3440 
4180 IF CANTIDAD*+Y>DINERO THEN PRINT 
"NO PUEDES COMPRAR ESA CANTIDAD": GOSU 
B 5670:GOTO 4160 

4190 PRINT "> EL OXIGENO YA ESTA EN T 
US TANQUES <" 


“CUANTOS TANQUES QUI 


oOoO0O0O OOOO OoO OO OOO OA OOOO OA OooAOoOAOOoA OomOoO 


O. 0". 0.0 0 0 CO. 0 0-0 


o0UuDUUODUO0OoO0 oo o .0o0 O O O O 


O 


O 


4200 
4210 
4220 
4230 
4240 
4250 


GOSUB 5670 

DINERO=D INERO-Y*CANTIDAD 

OX IGENO=0X IGENO+CANT IDAD 

RETURN y 

REM 346361636 16-36 2630-16-46 30 6 1106 

REM ENCUENTRO CON EL 
>ARCA ESPACIAL< 


4260 ARCA=ARCA+1:21F ARCA>1 THEN RETUR 

N > 

4270 FOR J=1 TO 3 

4280 PRINT TAB(J+*3)3 "ATENTO... ": GOSUB 
5670 

4290 GOSUB 5670 

4300 NEXT J 

4310 PRINT:PRINT 

4320 PRINT "PARECE INCREIBLE PERO EL 
ORDENADOR" 

4330 PRINT "CENTRAL DE LA NAVE INDICA 
QUE HA DETECTADO UN OBJETO PAREC 
IDO A LA" 

4340 PRINT "LEGENDARIA ARCA ESPACIAL 


DESAPARECIDA"; 

4350 PRINT "HACE MUCHO, MUCHO TIEMPO, 
EN UNA GALAXIA LEJANA" 

4360 PRINT "+++++4+4++4+44+4+44 e beber 
Here et++” 

4370 PRINT "EL ORDENADOR AL CAPITAN " 
3Ns 

4380 GOSUB 5670 

4390 PRINT TAB(2)3"COMPROBANDO SU IDE 
NTIFICACION..." 

4400 PRINT "++++++4+rer btt 
Herr.” 

4410 GOSUB 5470 

4420 PRINT "IDENTIFICACION CONFIRMADA 
. SE TRATA DEL NASMYTH FOCUS, DESAPA 
RECIDO HACE" 

4430 PRINT "DOS SIGLOS EN LO QUE MAS 
TARDE SE" 

4440 PRINT "DENOMINARIA EL PRIMER DES 

PLAZAMIENTO" 

4450 PRINT "TEMPORAL..." 

4460 GOSUB 5670 

4470 PRINT "++++44+4+44+4+44 44 AI IA ++ 
He” 

4480 PRINT "ATENCION..."3:GOSUB 5670: 

PRINT "ATENCION..." 

4490 GOSUB 5470 

4500 PRINT "POSTERIORMENTE, EL NASMYT 

H PASO A SERCONOCIDO COMO EL ARCA ESP 
ACIAL. SE” 
4510 PRINT 
USTO ANTES" 
4520 PRINT "DE QUE SOBREVENGA UNA DES 
GRACIA A LA” 

4530 PRINT "NAVE QUE LA HA ENCONTRADO 
..-.":GOSUB 5670 

4540 PRINT "++++++4+4++44 44 II +++ 
Hee." 

4550 PRINT "EL FLUJO PARCIAL QUE RODE 
A AL NASMYTH" 

4560 PRINT "ESTA AFECTANDO A LOS CABL 
ES DE FUERZA" 

4570 PRINT "QUE AMARRAN NUESTRAS REDE 
S DE OXIGENO" 

4580 GOSUB 5670 

4590 PRINT "+++4+++44+4 44 AA AI AAA AI AA 
HA e." 

4600 N=0 


"SUPONE QUE ESTA APARECE J 


4610 IF INKEYS<>"" THEN GOTO 4610 


4620 PRINT "PULSA LA TECLA <J> EN TUS 
CONTROLES A” 

4630 PRINT "FIN DE ESCAPAR AL FLUJO T 

EMPORAL..." 

4640 P$=INKEYS 

4650 N=N+1 

4660 IF P$="J" THEN GOTO 4750 

4670 IF N<99 THEN GOTO 4440 


4680 PRINT "TARDAS DEMASIADO..." 

4690 GOSUB 5670 

4700 PRINT "++++4+4+++++4+4++4++4+4+4+ ++ +++ 

e 

4710 PRINT "EL FLUJO HA BLOQUEADO NUE 

STRA RED 02!" 

4720 GOSUB 5670 

4730 OXIGENO=INT (3+* (OXIGENO/4)) 

4740 RETURN 

4750 PRINT:PRINT "BIEN HECHO, 
” NS 

4760 
ES!" 
4770 GOSUB 5670 

4780 PRINT "++++++++ +++ rrrrrrrrrrrorr 
Herr.” 

4790 PRINT "AHORA PODEMOS CONTINUAR N 
UESTRO VUELO” 

4800 GOSUB 5670 

4810 RETURN 

4820 REM 34636261636 36 36-16 34-36-46 24 1636 

4830 REM ATAQUE ESPACIAL 

4840 ATAQUE=ATAQUE+1: IF RND(1)<ATAQUE 
/7 THEN RETURN 

4850 IF ATAQUE>3 THEN RETURN 

4860 PRINT "++++++44r reee bb++ 
Hee” 

4870 PRINT "aT3NC1BN!'"2GOSUB 5670 
4880 PRINT "C3PIT"N "NS" ," 

4890 PRINT "aLGe A%Da Mal 3N NU3STReS 
sIStEMaS..." 

4900 GOSUB 56470:PRINT 

4910 PRINT "el €RD3NADER D3 1A NAV3 I 


CAPITAN 


PRINT "TUS REFLEJOS SON EXCELENT 


NDIZA QU3 S3 eSTA aPROxIMANOO HACIA 
NGSeTRes UN CAMPO D3 FU3RZ) ExTRA% 
OD...” 


4920 GOSUB 5670 
4930 FOR D=1 TO 5:PRINT 
EXT D:PRINT 
4940 PRINT 
UN” N*V3 
8D*S 37-23" 
4950 GOSUB 5670 
4960 Y=INT(RND(1)+8) 
4970 IF Y=0 THEN L$="LEXO" 
4980 IF Y=1 THEN L$="SABU" 
4990 IF Y=2 THEN L$="REPI" 
5000 IF Y=3 THEN L$="ASTE" 
5010 IF Y=4 THEN L$="PRIE" 
5020 IF Y=5 THEN L$="CONA" 
5030 IF Y=6 THEN L$="ZUSI" 
5040 IF Y=7 THEN L$="INQU" 
5050 Y=INT(RND(1)+*8) 
5060 IF Y=0 THEN L$=L$+"TAJE" 
5070 IF Y=1 THEN L$=L$+"LL>E" 
5080 IF Y=2 THEN L$=L$+"PROC" 
5090 IF Y=3 THEN L$=L$+"LEAL"” 
5100 IF Y=4 THEN L$=L$+"MAPO" 
5110 IF Y=5 THEN L$=L$+"ODRAL" 
5120 IF Y=6 THEN L$=L$+"KOC" 


"ATINCION!'":N 


"EL ORDINADOR $A DITICTADA 
“LI3NIGCEN” 3N LS COOrD3N 


OO OOO OOO OOO 0 0OO.0uOo q.,.xn(.0 0O.€ .. 0U0..0q0.. . .,.Q/O. 
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5130 IF Y=7 THEN L$=L$+"ZUCC" 

5140 PRINT "++++4++++44+4+4+ 444 A II A ++ 
HI +++” 

5150 GOSUB 5470 

5160 PRINT "LA NAVE ALIENIGENA SE ENC 
UENTRA BAJO" 

5170 PRINT "EL CONTROL DE LOS TEMIBLE 

“s5Ls 

5180 PRINT "++++4++4+4+4+4++4+4+4+44 4 br 
HA.” 

5190 GOSUB 5670 

5200 IF RND(1)>.9 AND RIEMAN>O THEN P 
RINT "LOS "5L$5" SE DIRIGEN":PRINT "A 
APODERARSE DEL RIEMANNIAN":RIEMA 
N=INT(RIEMAN/2): GOTO 5250 

5210 IF RND(1)>.8 THEN PRINT "HAN ATA 
CADO NUESTRA RED EXTERIOR DE COMBUST 
IBLE! ! "2: FUEL=4+*(INT(FUEL/S)):2GOTO 525 
o 

5220 IF RND(1)>.57 THEN PRINT "LOS LA 
SER DE LOS "3L$;" HAN":PRINT "DESTROZ 
ADO NUESTRA RED DE OXIGENO! ! ": OXIGENO 
=7% (INT(OXIGENO/8)):GOTO 5250 

5230 IF RND(1)>.8 THEN PRINT "OH NO, 
LOS ODIOSOS "53L$;" HAN":PRINT "ENVIAD 
O UN ROBOT PARA QUE SE APODERE DE NUE 
STRAS PRECIOSAS PROVISIONES! ":PROVIS= 
3 (INT(PROVIS/4)) 

5240 PRINT "++++4+44+444 4 AAA AA ++ 
HI AI AI ++." 

5250 GOSUB 5670 

5260 IF RND(1)>.46 THEN GOTO 5210 
5270 GOSUB 5670 


5280 PRINT "++++4++4+44+4++44+ 44 IA AI A+ 
HA ++" 

5290 PRINT "LOS "3L$5" SE RETIRAN..." 
5300 GOSUB 5670 

S310 PRINT "PARECE QUE EL ATAQUE HA T 
ERMINADO..." 

5320 GOSUB 5670 

5330 RETURN 

5340 REM 444626464636 16 44-363636 363 

5350 REM INICIALIZACION 

5360 CLS 


5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 


DIM A$(12),X$(15) 

SITUA=0 

DINERO=INT (RND (1)+50)+75 

FUEL=INT (RND (1)+50)+75 

OX IGENO=INT (RND (1) +25) +50 

RIEMAN=0 

PROVIS=100-INT(RND (1)+73) 

HALIENS=0: REM MARCIANOS HOSTILES 

RESTACI=0: REM ESTACION DE 
COMBUSTIBLE 

FALIENS=0: REM MARCIANOS AMIGOS 

ARCA=0: REM ARCA ESPACIAL 

TP=0: REM ADMON. COMERCIO 

ATAQUE=0: REM ATAQUE ESPACIAL 

5500 FE=0:REM FECHA ESPACIAL 

5510 PRINT "POR FAVOR, INTRODUCE TU N 

OMBRE": INPUT N$ 

5520 PRINT 

5530 PRINT "AHORA, 

VE": INPUT S$ 

5540 FOR J=1 TO 12 

5550 READ AS$ (J) 

5560 NEXT J 

5570 FOR J=1 TO 15 

5580 READ X$(J) 

5590 NEXT J 

5600 RETURN 

5610 DATA "TIERRA", "PEGASUS", "MIRA", " 

CITA", "DELPHINUS","CYGNUS", "PLEIDES", 

"HYADES", "HYDRUS","LEPUS", "CARINA","S 

PICA" 

5620 DATA "ASIMOV III","GALILEO IV"," 

BARNARD”S REST", "PRAESEPE", "SAGAN IX" 

5630 DATA "NEUTRINON","SEYFERT VI", "T 

ORUS K","LEMAITRE", "MARKARIA" 

5640 DATA "LEVERRIER",'"GAMOW", "HEISEN 

BERG", "FIZEAU", "CERENKOV" 

5650 REM 3046262636161 MA 

5660 REM BUCLE DE RETARDO 

5670 FOR T=1 TO 1000:NEXT T 

5680 PRINT 

5690 RETURN 

5700 PRINT "++++44+44+44+44 44 A AAA + 

HI ++" 


5460 
5470 
5480 
5490 


EL NOMBRE DE TU NA 


o. oO 


O: 0.0: O 10.00 


o. Oo 


Parte ll 
Aventura 


CITA CON MEFISTOFELES 
LABERINTO MAGICO 


Cita 
con 
Miefistófeles 


Al igual que se cuenta que hizo Fausto hace unos quinientos años, has 
pactado con el diablo. A cambio de disponer de la libertad de poder 
pasarte el resto de tus días jugando con el ordenador, le has entregado tu 
alma. 

Media hora después de sellar este pacto con tu propia sangre, te das 
cuenta de que el demonio ha hecho mejor negocio que tú. Dirigiéndote 
hacia la Fuente del Mal, convocas a Su Satánica Majestad, le dices que 
todo fue un error y le preguntas si no hay algún modo de deshacer el 
pacto tan cuidadosamente firmado. 

Su Satánica Majestad se lo piensa un rato antes de contestarte que 
entonces te impondrá una difícil tarea. Si sales victorioso de ella, te será 
devuelta tu alma para siempre. Si fracasas, el pacto seguirá en pie. 

Tu tarea es la siguiente. El diablo te llevará hasta la biblioteca de la 
demoníaca Torre de Kaskaskia, que era una de sus residencias reales hace 
cuatrocientos años. Desde allí, tendrás que abrirte camino por el laberinto 
de estancias hasta dar con las que antaño fueran las habitaciones privadas 
de Su Satánica Majestad. En éstas encontrarás un medallón mágico. Si 
consigues salir de la torre sano y salvo y con este medallón, tu alma no 
será más que tuya. 

Parece bastante razonable. No obstante, tú no te fías. Después de todo, 
los diablos tienen fama de ser muy tramposos en sus tratos con los 
humanos. Le pides consejo sobre cuál es el mejor modo de realizar esta 
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tarea. El diablo, impaciente, hace un chasquido con la lengua, agita una 
mano en el aire y al instante aparece sobre su hombro la familiar figura 
del cuervo negro. 

Este es el consejo del cuervo: 

“En esta aventura estás completamente solo. La idea es que llegues al 
final de la torre vivo y con el medallón en tu poder. La puntuación que se 
te da al final depende del número de monstruos que hayas logrado matar 
en tus correrías por la torre, de cuánta fuerza y otros atributos hayas 
conservado, de los tesoros que hayas reunido y de si has conseguido o no 
encontrar el medallón.” 

Le has de decir al ordenador lo que quieres hacer mediante órdenes 
compuestas de dos palabras, tales como IR OESTE, COGER HACHA o 
DEJAR DIAMANTE. Estas pueden abreviarse utilizando sólo las tres 
primeras letras de cada palabra, de modo que DEJ DIA puede aceptarse 
en lugar de DEJA DIAMANTE. 

Te recomiendo que según avanzas por la torre vayas haciendo un 
mapa del lugar, de modo que puedas volver sobre tus pasos en el caso de 
que llegaras a perderte. Las palabras que entiende el ordenador son IR, 
COGER, DEJAR, LUCHAR y MATAR, aunque tampoco se limita a 
éstas. El ordenador te lo hará saber cuando no entienda tus instrucciones. 
Si quisieras abandonar la aventura, no tienes más que introducir ABAN- 
DONAR. 

El plano de la torre no cambia de una a otra ejecución, pero la 
situación de los monstruos (entre los que se incluye el temible “ORCO- 
LOCO”) sí que varía en cada partida al igual que muchos de los tesoros 
y armas. 

Para ayudarte un poco más, el cuervo te muestra algunos de los volca- 
dos del ordenador. Con éstos puedes hacerte una idea de la experiencia 
que te aguarda. 

Así comienza la aventura: 


Largas mesas en hilera bordean la 
estancia que fuera antano el 


' estruendoso comedor de la satanica 
lo) Legion de los Perdidos. Ahora esta 
Ñ en completo desuso... 
DR La puerta esta cerrada con llave... 
[_) Tus atributos son: 
Fuerza: 12 
Carisma: 11 
[) Destreza: 14 
lo) Inteligencia: 14 
Sabiduria: 5 


Constitucion: 11 


Llevas: Ne 
1 LLAVE 
1 HACHA ¡a 


El valor total es de 2 PTAS. 


a) 


= 


Como ves, cuentas con seis atributos. Estos fluctúan a lo largo del 
juego, dependiendo de lo que estés haciendo en cada momento. Descende- 
rán si te hieren en la lucha. Asimismo, sólo para lograr sobrevivir irás 
" consumiendo algunos de los atributos. La aventura finaliza en el momento 
que uno de éstos se queda en cero. Esto significa que no dispones de un 
tiempo ilimitado para recorrer la torre cuando te apetezca. No tienes 
tiempo que perder, o de lo contrario acabarás probablemente muerto sin 
haber alcanzado tus objetivos. 

Tu lucha con los diferentes monstruos se establece en términos de los 
atributos de ambos contrincantes. Para empezar, sólo tienes que escoger 
dos de los seis que tienes, como se muestra en esta refriega: 


HABITACION 12 "TD 
Largas mesas en hilera bordean la A 


estancia que fuera antano el uy) 
estruendoso comedor de la satanica 
Legion de los Perdidos. Ahora esta 


P 
L 


Que quieres hacer? ABRIR PUERTA 


en completo desuso... UE 
La puerta esta cerrada con llave... LA) 
CUIDADO! 
HAY UN COMEBOBOS AQUI ' UN 
Tus atributos son: (A, 
Fuerza: 11 
Carisma: 9 
Destreza: 14 PAN 
Inteligencia: 12 lu 
Sabiduria: 6 
Constitucion: 10 
— 
Llevas: E] 
1 HACHA LY) 
Que quieres hacer? IR NORTE 
NO, TIENES QUE LUCHAR CONTRA COMEBOBO [) 
a LJ) 


=] 
D 


Í 


= 
a) 


E 


- 


- 
L 


) 


= 
y 


] 


hi 


y 


a 
L 


= 


L 


= 
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TU ADVERSARIO ES UN COMEBOBOS 


ES: 165 


e A e A A e a e e e e e 


EL COMEBOBOS TIENE LOS SIGUIENTES 


ATRIBUTOS: 

1- Fuerza: 12 
2- Carisma: 13 
3- Destreza: 15 
4- Inteligencia: 14 
S- Sabiduria: 22 
6- Constitucion: ta] 


TUS ATRIBUTOS SON: 


1i- Fuerza: 10 
2- Carisma: 10 
3- Destreza: 13 
4- Inteligencia: 11 
5- Sabiduria: 4 
£- Constitucion: o 


Que atributos quieres utilizar en la 
lucha? 
(ELIGE 2)7 3,6 


COMEBOBOS _. 16 
HUMANO — 21 


HAS HERIDO AL COMEBOBOS 
COMEBOBOS _ 15 
HUMANO — 21 


EL COMEBOBOS DA MUESTRAS DE CANSANCIO 


COMEBOBOS _. 14 
HUMANO —- 21 


EL COMEBOBOS DA MUESTRAS DE CANSANCIO == 


COMEBOBOS _. 13 [ ) 


HUMANO —- 21 


Le has asestado un buen golpe! [] 
HAS LIQUIDADO AL COMEBOBOS 


HABITACION 7 

Te encuentras en una habitacion 
minuscula y llena de humedad. Por un 
ventanuco enrejado situado en lo alto 
de uno de los muros entra una tenue 
claridad. 


11 O 


Tus atributos son: 


Fuerza: 9 
Carisma: 6 
Destreza: 12 Po) 
Inteligencia: 14 
Sabiduria: 4 


Constitucion: 11 


Llevas: UN 
1 ACIDO AS 
1 HACHA 


El valor total es de 7 PTAS. 


] 


Que quieres hacer? IR NORTE 


Tras muchos intentos, si eres inteligente (y en este juego la inteligencia 
es mucho más importante que la suerte) te las arreglarás para salir de allí 
y lograr tu libertad. Sólo puedes conseguir la puntuación máxima en el 
caso de finalizar la aventura. Aquellos que tengan el corazón delicado no 
tienen más que abandonar cuando la cosa se ponga fea. 


a 
a 


ENHORABUENA! Has finalizado 
A = LA AVENTURA 


[_) HAS MATADO 4 MONSTRUOS 
Y 
HAS ENCONTRADO TESOROS POR VALOR DE 


7 52 PTAS 
LL) SIN EMBARGO, NO HAS CONSEGUIDO ENCON- 
TRAR EL MEDALLON 
DE MODO QUE TU ALMA SE QUEDA EN PODER 


uE DE MEFISTOFELES!! 


LL) Tu puntuacion en esta aventura es 
1487 


Para emprender la búsqueda de Mefistófeles, introduce el siguiente listado: 


E o 240 PRINT TAB(4);"Constitucion: "CO 


' 
i ¡ 
O ; 2 REM + +* 250 IF ST*CH*DE+*+IT*WI*CO=0 THEN PRINT ¡ 
|. 3 REM * CITA CON MEFISTOFELES * ¿PRINT "Por desgracia, estas agotado. : 

1 4 REM + + «+ "¿PRINT "asi que hemos de dar fina 1 () 
O REE 06 60600 esta":PRINT "aventura":QU=2:GOTO 264 |; 
' 10 REM lo] ' 

1: 20 GOSUB 3370: REM INICIALIZACION 260 FL=0 O 
O 1 O REM seo 0606-06 06-26 06-066 2626 26-26 02446 270 FOR J=1 TO 5 ! 
¡ 40 REM INFORME AL JUGADOR 280 IF P(J)<>0 THEN FL=1 ' 

| 50 FOR Z=1 TO 1000:NEXT Z 290 NEXT J ' O 
O 1. 60 CLS 300 IF FL=0 THEN GOTO 370 ] 
1. 70 JF RO=16 THEN QU=1:GOTO 2610 310 EFECTIVO=0 : 

h '80 GOSUB 2720: REM DESCRIPCIONES DE 320 PRINT:PRINT "Llevas: " ' O 
O! LA ESTANCIA 330 FOR J=1 TO 5 l 
i 90 IF A(RO,5)<>0 OR A(RO,6)<>0 OR A(R 340 IF P(J)<>0 THEN PRINT TAB(4)5"1 " 1 

1 0,7)<>0 THEN GOSUB 3270: REM OBJETOS 30$(P(J)):EFECTIVO=EFECTIVO+V(P (J)) ; O 
O A 100 IF RO=12 AND CER=0 THEN PRINT: PRI 350 NEXT J ' 
j NT "La puerta esta cerrada con llave. 360 IF EFECTIVO>O THEN PRINT:PRINT TA | 

pos” B(3);5 "El valor total es de "¿STRS(EF y O 
O ! 110 IF A(RO,86)<>0 THEN PRINT TAB(3)3" ECTIVO)5" PTAS." y 
l CUIDADO!":PRINT "HAY UN "3M$(A(RO,8)) 370 PRINT 4 
1 3" AQUI!'": IF RND(1)>.7 AND A(RO,8)<>1 380 KW=0 1 

O 4 THEN PRINT "EL "3M$(A(ROD,8))5" ATACA 390 IF RO=7 AND C$="ACI" THEN ACIDO=1 i O 
! 1"2KW=1:GOSUB 1420:GOTO 40 400 IF RO=15 AND C$="MED" THEN MEDALL 1 
1 120 IF ST<1 THEN ST=0 ELSE IF RND(1)> O=1 : 

O . .84 THEN ST=ST-1 410 FOR Z=1 TO 1000:NEXT Z . O 
h 130 IF CH<1 THEN CH=0 ELSE IF RND(1)> 420 INPUT "Que quieres hacer";A$ 1 
s 84 THEN CH=CH-1 430 IF A$="" THEN 420 ! 

O | 140 IF DEX<1 THEN DE=0 ELSE IF RND(1)> 440 AS=ASC(A$) ¡ O 
1” .84 THEN DE=DE-1 450 M=LEN(A$): IF M<7 THEN A$=A$+" ":G l 

1 150 IF IT<1 THEN IT=0 ELSE IF RND(1)> OTO 450 ' O 
O | .84 THEN IT=IT-1 460 B$=LEFTS$ (AS, 3) ; 
h 160 IF WI<1 THEN WI=0 ELSE IF RND(1)> 470 IF B$="AYU" OR B$="SOC" THEN PRIN l 

1 .94 THEN WI=WI-1 T TAB(3);"DEBES ESTAR DE BROMA! ":GOTO + O 
O i 170 IF CO<1 THEN CO=0 ELSE IF RND(1)> 700 l 
¡ .84 THEN CO=CO-1 480 IF B$="PAR" OR B$="ACA" THEN QU=4 : 

1 180 PRINT:PRINT "Tus atributos son: "” ¿GOTO 2580 ' O 
O h 190 PRINT TAB(4)5 "Fuerza: "ST 490 N=1 ] 
¡ 200 PRINT TAB(4)5"Carisma: "CH 500 IF MID$(A$,N,1)=" " THEN C$=MIDS ( | 

: 210 PRINT TAB(4)5 "Destreza: "DE A$,N+1,3): IF LEFT$(C$,1)<>" " THEN 56 1 O 
O; 220 PRINT TAB(4)3"Inteligencia: "IT O ELSE 520 ; 
; 230 PRINT TAB(4);5"Sabiduria: "WI 510 IF N<M THEN N=N+1:GOTO 500 | 


56 


o.0 O 


O 


O. 10"-:0 0 


520 IF RND(1)>.5 THEN 540 
530 PRINT TAB(6)3 "SOLO CON "5A$:PRIN 
T TAB(6); "NO PUEDO HACER NADA":GOTO 
420 
540 PRINT A$;" ES SOLO UNA PALABRA": P 
RINT TAB(4)35"NECESITO DOS":GOTO 420 
550 IF RO=2 AND C$="ACI" AND ACIDO=0 
THEN PRINT "NO LO LLEVAS":GOTO 700 
560 IF RO=2 AND B$="IR" AND LEFTS(CS$, 
1)="E" THEN PRINT "TE COMERAN VIVO SI 
INTENTAS ATRAVESAREL TORRENTE...":GO 
TO 700 ¿ 
570 IF RO=2 AND ACIDO=1 AND C$="ACI" 
THEN PRINT "LOS PECES ESTAN MURIENDO, 
MURIENDO. . .PUEDES ATRAVESARLO SIN PE 
LIGRO...":RO=3:GOTO 700 
580 IF B$="MAT" OR B$="LUC" 
L" THEN KW=1:GOSUB 1420 
590 IF RO=12 AND CER=0 AND (C$="0ES" 
OR C$="EST") THEN PRINT TAB(4)5"La pu 
erta esta cerrada!":GOTO 700 
600 IF B$="IR " AND A(RO,8)<>0 AND R 
O<>1 AND RND(1)<>.5 THEN PRINT "NO, T 
IENES QUE LUCHAR CONTRA "3M$(A(RO,8)) 


OR Bs="PE 


:GOSUB 1420 

610 IF B$="IR " THEN KW=1:GOSUB 730 
620 IF B$="C0G" THEN KW=1:GOSUB 1010 
630 IF B$="DEJ" THEN KW=1:GOSUB 1210 
640 IF B$="ABR" THEN KW=1:GOSUB 2440 
650 IF KW=1 THEN 700 

660 R=INT(RND(1)+*3) 

670 IF R=0 THEN PRINT "NO SERIA MUY S 
ENSATO "5As$ 

680 IF R=1 THEN PRINT "SOLO UN LOCO I 
NTENTARIA "3AS$ 


690 IF R=2 THEN PRINT 
QUE ME DICES" 

700 FOR Z=1 TO S500O:NEXT Z 

710 GOTO 40 

720 REM 1436316262426 

730 REM MOVIMIENTO 

740 IF RO<>1 THEN 900 

750 IF SOB=1 THEN 900 

760 PRINT "EL MALVADO ENREDADOR INSIS 
TE EN QUE SOLO ENTREGANDOLE EL ANILL 
O DE ORO" 
770 PRINT 
780 FL=0 
790 FOR J=1 TO 5 

800 IF P(J)=1 THEN FL=J 

810 NEXT J: IF FL>0 THEN 860 


"NO ENTIENDO LO 


"BLANCO TE DEJARA PASAR" 


820 PRINT "No lo tienes! El malvado 
Enredador" 

830 PRINT "te vuelve a enviar al Temp 
lo Room...":FOR Z=1 TO 500:NEXT Z 

840 RO=4 

850 RETURN 


860 FOR Z=1 TO S500:NEXT Z 

870 PRINT:PRINT "Menos mal que lo ten 
ias!” 

880 P(FL)=0:A(1,8)=0: SOB=1 

890 PRINT "El malvado Enredador murmu 
ra algo parecido a gracias... y de 
saparece..." 

900 CS=LEFTS(C$, 1) 

910 IF C$="N" AND A(RO,1)=0 THEN PRIN 
T "No puedes ir en esa direccion":RET 
URN 

920 IF C$="S" AND A(RO,2)=0 THEN PRIN 


T "No hay salida hacia el sur": RETURN 
930 IF C$="E" AND A(RO,3)=0 THEN PRIN 
T "No veo hacia donde puedes ir por e 
1  Este":RETURN 

940 IF C$="0" AND A(RO,4)=0 THEN PRIN 
T "Eso si pudieras atravesar las pare 
des": RETURN 


950 IF C$="N" THEN RO=A(RO, 1) 

960 IF C$="S" THEN RO=A(RO, 2) 

970 IF C$="E" THEN RO=A(RO, 3) 

980 IF C$="0" THEN RO=A(RO, 4) 

990 RETURN 

1000 REM 30363636 46-36-2626 26-26-2636 6066 III 
1010 REM RUTINA PARA COGER OBJETOS 
1020 FL=0 

1030 FOR J=1 TO S 

1040 IF P(J)<>0 THEN FL=FL+1 

1050 NEXT J 

1060 IF FL=5S THEN PRINT "Ya llevas el 


maximo de cinco objetos”: RETURN 

1070 IF A(RO,5)=0 AND A(RO,6)=0 AND A 
(RO,7)=0 THEN PRINT "No veo nada que 
puedas coger": RETURN 

1080 Ds$="":Es$="":Fs$="" 

1090 D$=LEFTS(0$(A(RO,5)),3) 

1100 E$=LEFTS(0$(A(RO,6)),3) 

1110 F$=LEFTS(0$(A(RO,7)),3) 

1120 IF C$=D$ THEN N=A(RO,5):A(RO,5)= 
Oo 
1130 
o 
1140 
o 
1150 
1160 


IF C$=ES$S THEN N=A(RO,6):A(RO,6)= 
IF C$=F$ THEN N=A(RO,7):A(RO,7)= 


J=1 

IF P(J)=0 THEN P(J)=N:GOTO 1180 
1170 IF J<S THEN J=J+1:GOTO 1160 

1180 PRINT TAB(3)3">-> AHORA TIENES 1 
"50$(N) 

1190 RETURN 

1200 REM 4643626 26-36-2626 2606-3626 
1210 REM RUTINA PARA DEJAR OBJETOS 
1220 FL=0 

1230 FOR J=1 TO 5 

1240 IF P(J)<>0 THEN FL=1 

1250 NEXT J 

1260 IF FL=0 THEN PRINT 

da": RETURN 

1270 IF A(RO,5)<>0 AND A(RO,6)<>0 AND 
A(RO,7)<>0 THEN PRINT "Esta habitaci 

on ya contiene su maximo":PRINT TAB(6 
)3"de objetos": RETURN 

1280 D$="":D=0 

1290 FOR J=1 TO 8 

1300 IF LEFTS(0$(J),3)=C$ THEN D$=0$ ( 

J): D=J 

1310 NEXT J 

1320 IF DS="" THEN PRINT TAB(3)3 "Como 
vas a poder si no lo tienes en":PRIN 

T TAB(5)5"tu poder?" : RETURN 

1330 FOR J=1 TO 5 

1340 IF P(J)=D THEN P(J)=0 

1350 NEXT J 

1360 IF A(RO,5)=0 THEN A(RO,5)=D:GOTO 
1390 

1370 IF A(RO,6)=0 THEN A(RO, 6) =D: GOTO 
1390 

1380 IF A(RO,7)=0 THEN A(RO,7)=D 

1390 PRINT "HAS RENUNCIADO AL ";Ds$ 
1400 RETURN 


"No llevas na 


00 O OOOO JO0OooOomsOo 
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1410 REM 43646-364636-26-36 263661020266 

1420 REM RUTINA DE LUCHA 

1430 IF RO=1 THEN PRINT "EL ENREDADOR 
NO QUIERE NADA DE ESO! ": RETURN 


1440 IF A(RO,8)<>0 THEN 1490 

1450 R=RND(1) 

1460 IF R<.S THEN PRINT "No hay con q 
uien luchar aqui" 

1470 IF R>=.S5 THEN PRINT "No puedes 1 


uchar contra el aire!" 

1480 RETURN 

1490 G$=M$(A(RO,8)) 

1500 S1=INT(RND (1) *6+RND (1)+6+RND (1) + 
6)+3 
1510 
6)+3 
1520 
6)+3 
1530 
6)+3 
1540 


H1=INT (RND (1) %6+RND (1) 6+RND (1) + 
D1=INT(RND(1)*6+RND (1) *6+RND(1)+* 
11=INT(RND(1)*6+RND (1)+*6+RND (1) + 
W1=INT(RND (1)+6+RND (1) +6+RND (1) + 


C1=INT(RND (1) %6+RND (1) +6+RND (1) + 


PRINT "TU ADVERSARIO ES UN ";5G5$ 
MT=0:HT=0: REM REGISTRO DEL MONST 
REGISTRO DEL HUMANO 
FF=S1*(INT(RND(1)+6)+1) 


1610 PRINT "EL NIVEL DE PELIGRO DEL " 
3GS$:PRINT "ES: "5FF 

1520. PRINTS 
1630 FOR Z=1 TO 1500:NEXT Z 
1640 FOR J=1 TO 5 

1650 T(J)=0 

1660 IF P(J)=6 THEN PRINT 
ODRIA SERTE UTIL":T(J)=6 

1670 IF P(J)=5 THEN PRINT "TU HABILID 
AD CON LA ESPADA PODRIA":*PRINT "SERTE 
DE GRAN UTILIDAD":T(J)=5 

16580 NEXT J 

1690 FL=0 

1700 FOR J=1 TOS 

1710 IF T(J)<>0 THEN FL=FL+1 

1720 NEXT J 

1730 IF FL=0 THEN PRINT 
R CONTRA EL "5G$:PRINT 

TUS MANOS":GOTO 1900 


"EL HACHA P 


"HAS DE LUCHA 
“TAN SOLO CON 


1740 IF FL>1 THEN 1810 

1750 FOR J=1 TO S 

1760 IF T(J)<>0 THEN FL=T(J) 

1770 NEXT J 

1780 PRINT "HAS DE LUCHAR CON TU "30$ 
(FL) 

1790 FF=INT(FF*2/FL) 

1800 GOTO 1900 

1810 PRINT "ESCOGE EL ARMA: " 

1820 FOR J=1 TO 5 

1830 IF P(J)<>0 THEN PRINT J;"-"50$(P 
(93) 

1840 NEXT J 

1850 INPUT "Introduce el numero que e 
scojas "5J 


1860 IF J<1 OR J>S THEN 1850 
1870 IF P(J)=0 THEN PRINT "NO TIENES 
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"530$(J):GOTO 1850 

1880 PRINT "DE ACUERDO, ASI QUE ESCOG 
ES LUCHAR CON EL "30$(P(J)) 

1890 FF=INT(FF*2/J) 

1900 FOR Z=1 TO 1500:NEXT Z 

1910 PRINT "============ 
IESS=Z=======" 


1920 PRINT "EL "536$5" TIENE LOS SIGUI 


ENTES":PRINT "ATRIBUTOS: " 

1930 PRINT "i- Fuerza: "si 
1940 PRINT "2- Carisma: "H1 
1950 PRINT "3- Destreza: "D1 
1960 PRINT "4- Inteligencia: "Il 
1970 PRINT "5- Sabiduria: "w1 
1980 PRINT "6- Constitucion: "C1 
1990 PRINT:PRINT "TUS ATRIBUTOS SON: " 
2000 PRINT "1- Fuerza: "ST 
2010 PRINT "2- Carisma: "CH 
2020 PRINT "3- Destreza: "DE 
2030 PRINT "4- Inteligencia: "IT 
2040 PRINT "5- Sabiduria: "WI 
2050 PRINT "6- Constitucion: "CO 
2060 PRINT:PRINT "Que atributos quier 


es utilizar en la lucha?":PRINT "(ELI 
GE 2)"; 

2070 INPUT Z,Q 

2080 IF Z<1 OR Q<1 OR Z>6 OR Q>6 OR Z 


=Q THEN PRINT "NO ESTES HACIENDO EL T 


ONTO CUANDO HAYUN "5G$:PRINT " CONTIG 

O EN LA ESTANCIA! ":GOTO 2070 

2090 IF Z=1 OR Q=1 THEN MT=MT+S1:HT=H 

T+ST 

2100 IF Z=2 OR 0=2 THEN MT=MT+H1: HT=H 

T+CH 

2110 IF Z=3 OR Q=3 THEN MT=MT+D1:HT=H 

T+DE 

2120 IF Z=4 OR Q=4 THEN NT=MT+11:HT=H 

T+IT 

2130 IF Z=S OR Q=5 THEN MT=MT+W1:HT=H 

T+WI 

2140 IF Z=6 OR Q=6 THEN MT=MT+C1:HT=H 

T+CO 

2150 IF HT=MT THEN PRINT "Vuestros at 

ributos estan igualados":GOTO 2190 

2160 PRINT "PARECE QUE ESTA GANANDO E 
, 

2170 IF HT>MT THEN PRINT "HUMANO" ELS 

E PRINT G$ 

2180 PRINT  "-—---=-=-===============-=-=-- 

2190 K=INT(RND(1)+7) 


FOR Z=1 TO 700:NEXT Z 

PRINT G$3" _ "3MT 

PRINT "HUMANO -— "5HT 

PRINT 
2240 IF K=0 THEN PRINT "Le has asesta 
do un buen golpe! ":MT=MT-1 

2250 IF K=1 THEN PRINT "EL "36$53" GOL 
PEA CON FUERZA": HT=HT-3: ST=ST-1: CH=CH 
-1 

2260 IF K=2 THEN PRINT "HAS HECHO SAN 
GRAR AL "36$:MT=MT-1 

2270 IF K=3 THEN PRINT "Estas herido! 
"2 HT=HT- INT (RND (1)+*3)-1: DE=DE-1 

2280 IF K=4 THEN PRINT "EL "3G$;" DA 

MUESTRAS DE CANSANCIO": MT=MT-1 

2290 IF K=S THEN PRINT "Estas sangran 
do... ":¿HT=HT-2:WI=WI-1: CO=CO-1 


O. 0 


ooo Oo0o.O0 


O» TOTO: 50. O 


o. O 


oO0OOOOOOODJDOOo OOoOOo0os0osmqwv0os0 


ooo. Oo O 


O 


2300 IF K=6 THEN PRINT 
"56$: MT=MT-1 

2310 IF RND(1)>.25 AND HT>0 AND MT>O 

THEN FOR T=1 TO 1600:NEXT T:GOTO 2190 

2320 IF HT>MT THEN PRINT "HAS LIQUIDA 

DO AL "356G$: ST=ST+1: DE=DE+1:WI=W1I+1: CH 

=CH+1:2 IT=I1T+1: CO=C0+1 : MK=MK+1:GOTO 24 

00 

2330 PRINT 

STA VEZ..." 

2340 IF Z=1 
) 

2350 IF 
) 

2360 IF 
) 

2370 IF 
) 

2380 IF 
) 

2390 IF Z=6 OR 
2400 A(RO,8)=0 
2410 FOR Z=1 TO 500:NEXT Z 

2420 RETURN 

2430 REM 341616 de 16 26 36 dd 6 6 dd 

2440 REM RUTINA PARA ABRIR PUERTAS 
2450 IF RO<>12 OR CER=1 THEN PRINT "E 
n esta estancia no hay ninguna Pp 
uerta cerrada con llave":RETURN 

2460 FL=0 

2470 FOR J=1 TOS 

2480 IF P(J)=2 THEN FL=J 
2490 NEXT J 

2500 IF FL=0 THEN PRINT 
llave": RETURN 

2510 PRINT "Se oye un crujido al gira 
r la llave en la cerradura" 

2520 FOR Z=1 TO 1500:NEXT Z 

2530 PRINT "...LA PUERTA YA ESTA ABIE 
RTA!" 


"HAS HERIDO AL 


"EL "36$3" TE HA VENCIDO E 


OR Q=1 THEN ST=4*INT(ST/S 


Z=2 OR Q=2 THEN CH=3+*INT(CH/4 


Z=3 OR THEN DE=6*INT(DE/7 


7=4 OR THEN IT=2*INT(I1T/3 


Z=5S OR 0=5 THEN WI=5*INT(WI/6 


Q=6 THEN CO=INT(CO/2) 


"No tienes la 


2540 CER=1 

2550 P(FL)=0 

2560 RETURN 

2570 REM 14163616 36 26-14 46163016 de 

2580 REM FIN DEL JUEGO 

2590 PU=0: REM PUNTUACION 

2600 IF QU=4 THEN PRINT "No me imagin 


aba que ibas a resultar":PRINT TAB(5) 
¿"un cobarde...":GOTO 2640 

2610 PRINT:PRINT "ENHORABUENA! Has fi 

malizado":*PRINT TAB(7)5"LA AVENTURA" 

2620 PU=100 

2630 PRINT:PRINT 

2640 PU=9999*MEDALLO+ (PU+20*EFECTIVO+ 

474MK+ST+2CH+3DE+4+1T+5W1+6%*C0) /QU 

2650 IF MK>O THEN PRINT "HAS MATADO"M 

K"MONSTRUOS" 

2660 IF MK>0O AND EFECTIVO>O THEN PRIN 
T "y 3 

2670 PRINT:PRINT "HAS ENCONTRADO TESO 
ROS POR VALOR DE":*PRINT STR$(EFECTIVO 
33" PTAS":PRINT 

2680 IF MEDALLO=0 THEN PRINT "SIN EMB 
ARGO, NO HAS CONSEGUIDO ENCON-TRAR EL 
MEDALLON":*PRINT "DE MODO QUE TU ALMA 
SE QUEDA EN PODERDE MEFISTOFELES! ! ” 
2690 IF MEDALLO=1 THEN PRINT "Y HAS E 
NCONTRADO EL MEDALLON, CONQUE": PRINT 
"HAS CONSEGUIDO ARREBATAR TU ALMA A 


MEFISTOFELES!!" 
2700 PRINT:PRINT “Tu puntuacion en es 
ta aventura es"PU 
2710 END 
2720 PRINT "HABITACION"RO 
2730 REM 036362626 06-26 26-26-2626 
2740 REM DESCRIPCION DE LAS ESTANCIAS 
2750 ON RO GOSUB 2780,2820, 2860, 2910, 
2940,2970,3000,3030,3060,3090,3120,31 
50,3180,3210,3240 
2760 FOR D=1 TO 1000:NEXT D:RETURN 
2770 REM se HABITACION UNO 4 
2780 PRINT "Te encuentras en una polv 
orienta ha- bitacion custodiada a cad 
a lado por dos estatuas demoniacas gy 
igantescas” 
2790 PRINT "que te observan desde lo 
alto con vi-driosa mirada. La unica 
salida te devuelve al punto del que 
has partido" 
2800 RETURN 
2810 REM ** HABITACION DOS * 
2820 PRINT "A esta lugubre estancia s 
e solia traer a los muertos para 
su juicio...Por la arcada que mira al 


este, se puede ver un vertiginoso 
torrente” 

2830 PRINT "infectado de unas mortale 
s alimanas acuaticas devoradoras de 
hombres!!!!" 

2840 RETURN 

2850 REM +*%* HABITACION TRES *.e 


2860 PRINT 
tuyo y 
ndo, 


"Has dejado el rio detras 
apareces, todavia chorrea 

en una pequena cripta..." 

2870 PRINT 

2880 PRINT "Sopla un gelido viento de 
1 norte..." 

2890 RETURN 

2900 REM +*%* HABITACION CUATRO +. 

2910 PRINT "Este templo ha sido testi 

go de sacrilegas misas negras. 

El hedor de la estancia es irrespirab 
le" 

2920 RETURN 

2930 REM +** HABITACION CINCO +. 

2940 PRINT "Los esqueletos que aqui s 

e guardan enjaulas cuentan la horribl 

e historia de todos aquellos que se 

negaron a entregar su alma y fueron 
condenados a morir lentamente..." 

2950 RETURN 

2960 REM ** HABITACION SEIS +. 

2970 PRINT "Esta estancia guardo en s 

u tiempo el tesoro del satanico monar 

ca, pero ya hace mucho que esta vacia 


2980 RETURN 

2990 REM +** HABITACION SIETE +%* 

3000 PRINT "Te encuentras en una habi 
tacion minuscula y llena de hume 
dad. Por un ventanuco enrejado situad 


oen lo altode uno de los muros entra 
una tenue claridad.” 

3010 RETURN 

3020 REM %+* HABITACION OCHO +x* 

3030 PRINT "Unos cuantos montones de 

chatarra oxidada es todo lo que qu 


eda de la armadura del malefico Sat 


O 


O- 0. 70. O. +0 OQ 0: 0:70: 0. 00. .0.- 0-0 10 


O 


O 
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o. Oo 


00000000 OOO OOOO 0oOO q€.o.Oo Oo 


O 


O 


an." 

3040 RETURN 

3050 REM %** HABITACION NUEVE + 

3060 PRINT "Te hallas en la bibliotec 
a. Los libros estan hechizad 
os y ningun mortal ha podido hasta ah 
ora sacarlosde sus estantes..." 

3070 RETURN 

3080 REM +** HABITACION DIEZ *. 

3090 PRINT "En los muros de esta inme 
nsa estanciaestan representadas con t 
odo realismolas cruentas batallas ent 
re las Fuerzas de la Luz y las F 
uerzas de las Tinieblas..." 

3100 RETURN 

3110 REM +** HABITACION ONCE + 

3120 PRINT "Te encuentras en la habit 
acion que elGuardian Negro del Viejo 
Cismatico utilizara, muchos siglos 
atras, para sus cuarteles generales.. 


3130 RETURN 
3140 REM +* HABITACION DOCE +. 
3150 PRINT “Largas mesas en hilera bo 


rdean la estancia que fuera antano 
el estruendoso comedor de la 
satanica Legion de los Perdidos. A 


hora esta en completo desuso..." 

3160 RETURN 

3170 REM +*+* HABITACION TRECE +. 

3180 PRINT "Te hallas en el interior 

de una gigantesca caverna natura 

1 subterranea a la que ahor 

a se le ha dado uso como almacen...” 

3190 RETURN 

3200 REM %** HABITACION CATORCE +. 

3210 PRINT "Este es el Laboratorio de 
1 AlquimistaTodavia flota el eco de s 

us conjuros en la pesada y mohosa atm 

osfera de laestancia..." 

3220 RETURN 

3230 REM *%* HABITACION QUINCE +%* 

3240 PRINT "Te has abierto paso hasta 
los aposen-tos privados de Mefistofe 
les, lo que significa que estas a med 
io camino detu busqueda. Vas bien enc 

aminado...":PRINT TAB(12)5"...por aho 
FPar..” 

3250 RETURN 

3260 REM 44461636 16-26-3616 16 HE MIME INEM 
3270 REM *%* DESCRIPCION DE OBJETOS *+* 
3280 PRINT ] 
3290 PRINT TAB(3) "PUEDES VER: ":PRINT 
3300 IF A(RO,5)<>0 THEN PRINT TAB(4)5 
"1 "530$(A(RO,5)) 

3310 IF A(RO,6)<>0 THEN PRINT 
"1 "50$(A(RO,6)) 

3320 IF A(RO,7)<>0 THEN PRINT 
"1 "50$(A(RO,7)) 

3330 FOR Z=1 TO 500:NEXT Z 
3340 PRINT 

3350 RETURN 

3360 REM 40006466006 0160 

3370 REM INICIALIZACION 

3380 CLS 

3390 CLS 

3400 DEFINT A-Z 

3410 DIM A(16,8),P(5),0$(8),V (20) ,M5$ ( 
8),T(5) 


TAB (4)5 


TAB (4)5 


3420 
6)+3 
3430 
6)+3 
3440 
6)+3 
3450 
6)+3 
3460 
6)+3 
3470 
6)+3 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 


3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 


ST=IN 


CH=IN 


DE= INT (RND (1)+6+RND (1)+6+RND(1)+ 


IT=INT(RND (1) +6+RND (1)6+RND (1) 


WI=IN 


CO=INT (RND (1) %6+RND (1)+6+RND (1)+ 


EFECT 
RO=9: 
QU=1 

MK=0: 
CER=0 
Cs="" 
SOB=0 
MEDAL 
ACIDO: 
REM D 


FOR X= 


FOR Y: 
READ 
NEXT 
NEXT 
REM D 


'T (RND (1) *6+RND (1) +6+RND (1) + 


¡T (RAND (1)+6+RND (1) 6+RND(1)+ 


'T (RAND (1) 6+RND (1)+6+RND (1) + 


IVO=0: REM TESORO 

REM HABITACION INICIAL 

REM MONSTRUOS MUERTOS 

LO=0 

=0 

ISTRIBUCION HABITACIONES 
1 TO 16 

=1 TO 4 

A(X, Y) 

Y 

Xx 

ISTRIBUCION DE LOS TESOROS 


FOR Z=1 TO 8 

READ 0$(Z),V(Z) 

NEXT Z 

A(6,5)=1 

A(10,5)=2 

A(15,5)=3 

A(7,5)=4 

FOR Q=5 TO 8 

Z=INT(RND(1)*15+1) 

IF A(Z,5)<>0 THEN 3720 

A(Z,5)=0: REM NUMERO DE OBJETOS 
EN LAS HABITACIONES 

NEXT Q 

PRINT 

REM DISTRIBUCION DE MONSTRUOS 

FOR J=1 TO 8 

READ M$(J) 

IF J=1 THEN 3850 

Z=INT(RND(1)*15+1) 

IF Z=9 OR Z=3 OR Z=1 THEN 3810 

IF A(Z,8)<>0 THEN 3810 

A(7,8)=J 

NEXT J 

A(1,8)=1 

RETURN 

REM +* HABITACIONES sw 

DATA 0,4,0,0:REM HABITACION 1 

DATA 0,5,3,0: REM HARITACION 2 

DATA 16,0,0,2:REM HABITACION 3 

DATA 1,8,5,0:REM HABITACION 4 

DATA 2,0,6,4:REM HABITACION 5 

DATA 0,0,0,5:REM HABITACION 6 

DATA 14,0,0,0:REM HABITACION 7 

DATA 4,11,0,0:REM HABITACION 8 

DATA 0,12,10,0:REM HABITACION 9 

DATA 0,0,0,9:REM HABITACION 10 

DATA 8,14,12,0:REM HABITACION 11 

DATA 9,0,13,11:REM HABITACION 12 

DATA 0,0,0,12:REM HABITACION 13 

DATA 11,7,15,0:REM HABITACION 14 

DATA 0,0,0,14:REM HABITACION 15 


o. 0 O 


O 


O 01. 0 00 0-0. .0. 0 0-0 020: :0--0 


O 


O 


4040 DATA 0,3,0,0:REM HABITACION 16 
4050 REM %*x* OBJETOS ++. 


4130 REM *NOMBRES DE LOS MONSTRUOS+* 
4140 DATA "ENREDADOR" 


: i 
oi 
4060 DATA "ANILLO",567 4150 DATA "ARTIFACTUM" h O 
i 4070 DATA "LLAVE", 2 4160 DATA "EMBORRONADOR" ¿ 
O 1 4080 DATA "MEDALLON", 15 4170 DATA "COMEBOBOS" ' 
| 4090 DATA "ACIDO",7 4180 DATA "ORCOLOCO" d o) 
] 4100 DATA "ESPADA", 0, "HACHA", O 4190 DATA "ARCBLUNDEN" | 
o! 4110 DATA "AMYTHEST",27 4200 DATA "EMBIHUUND" . 
4120 DATA "CRISTAL", 45 4210 DATA "BABOSO" ! O 


$1 


Laberinto 
mágico 


Aquí tenemos un programa que te hará sudar tinta, pues has de 
demostrar no sólo tu poder de deducción, sino también tu capacidad 
como topógrafo. 

Un viejo mago, astuto por demás, te ha atrapado en una casa abando- 
nada que está literalmente abarrotada de todo tipo de objetos, mágicos los 
unos, valiosos los otros. Para poder salir de allí has de transportar seis 
objetos diferentes hasta la estancia que hace las veces de almacén. 

¡Qué fácil!, te dirás. Pero no te apresures, espera a que el mago te 
indique la verdadera naturaleza de la prueba. La casa está construida en 
forma de laberinto y tú no cuentas todavía con un mapa del mismo. 
Tendrás que irlo levantando conforme avanzas por él. Ni siquiera sabes 
dónde se encuentra el almacén. Para complicar más las cosas, sólo puedes 
llevar un objeto a la vez y, aunque puedes dejar cualquiera de los objetos, 
si te parece conveniente, no puedes hacerlo cuando ya hay uno en esa 
habitación. 

Parece complicado, ¿verdad? Y lo es, de hecho. Pero la satisfacción que 
te dará salir del laberinto y haber completado tan difícil prueba, hacen que 
merezca la pena intentarlo. 

El programa comprende las palabras que le teclees (siempre dentro de 
unos límites) y puede llevar a cabo tus deseos. Este es el inicio del juego. 
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ESTE ES EL MOVIMIENTO 1 


AS 
E ESTAS EN EL DORMITORIO DEL SENOR 
<=) 

HAY SALIDAS HACIA EL 

NORTE OESTE 

[) 
¡A LA HABITACION CONTIENE 

1 ESPADA 
7] TIENES LAS MANOS VACIAS 
LL) 


QUE QUIERES HACER? COGER ESPADA 


Tanto para moverte como para avanzar sólo necesitas introducir las 
tres primeras letras de cada palabra, con lo que COG ESP también 
hubiera servido (o incluso podrías haber tecleado la sentencia entera CO- 
GER ESPADA, si lo hubieras considerado conveniente). 

Si eres un poco sensato, irás haciendo un plano a medida que descu- 
bres la disposición de las habitaciones, pues así cada vez te moverás con 
mayor soltura por el laberinto que éstas forman. 

Con la espada en la mano decides ir hacia el norte: 


ME ESTE ES EL MOVIMIENTO 2 
al 
ESTAS EN EL DORMITORIO DEL SENOR 
PE] HAY SALIDAS HACIA EL 
PE NORTE OESTE 
ly) 
LLEVAS CONTIGO 1 ESPADA 
[) 
(MU _) QUE QUIERES HACER? IR NORTE 


Enseguida te das cuenta de tus limitaciones físicas al intentar traspasar 
las paredes: 


ESTE ES EL MOVIMIENTO 3 
ON 
a ESTAS EN EL TORREON SINIESTRO 


HAY SALIDAS HACIA EL 
SUR OESTE 


LA HABITACION CONTIENE 
1 PENTAGONO PODEROSO 


LLEVAS CONTIGO 1 ESPADA 


QUE QUIERES HACER? IR NORTE 
NO HAY SALIDAS EN ESA DIRECCION 


Vuelves a intentarlo por las salidas que se te indican: 
ESTE ES EL MOVIMIENTO 4 
ESTAS EN EL TORREON SINIESTRO 


HAY SALIDAS HACIA EL 
SUR OESTE 


LA HABITACION CONTIENE 
1 PENTAGONO PODEROSO 
LLEVAS CONTIGO 1 ESPADA 


QUE QUIERES HACER? IR OESTE 


E inmediatamente apareces en el almacén: 


ESTE ES EL MOVIMIENTO 5 
ESTAS EN EL ALMACEN 


QUE CONTIENE: 
NADA 


HAY SALIDAS HACIA EL 
ESTE 
LLEVAS CONTIGO 1 ESPADA 


TE QUEDAN POR LOCALIZAR 5 OBJETOS 


ESTE ES EL MOVIMIENTO 64 


E 
(MES, 


ESTAS EN EL ALMACEN 
QUE CONTIENE: 
1 ESPADA 


1) 
WI) 


HAY SALIDAS HACIA EL 
ESTE 


TIENES LAS MANOS VACIAS 


1) 


QUE QUIERES HACER? IR ESTE 


L 
Y 


ESTE ES EL MOVIMIENTO 7 


ESTAS EN EL TORREON SINIESTRO 


a 


HAY SALIDAS HACIA EL 
SUR OESTE 


1] 


LA HABITACION CONTIENE 
1 PENTAGONO PODEROSO 


TIENES LAS MANOS VACIAS 


L] 


QUE QUIERES HACER? COGER PENTAGONO 


Tras mucho ir y venir transportando objetos, para tu alegría descubres 
que el almacén está casi lleno: 


ESTE ES EL MOVIMIENTO 39 


L 


ESTAS EN EL ALMACEN 

QUE CONTIENE: 

1 ESPADA 

1 PENTAGONO PODEROSO 
1 POCION DE CICUTA 

1 ESTATUA DE BRONCE 


L 


HAY SALIDAS HACIA EL == 
ce se 
LLEVAS CONTIGO 1 ANILLO DE DIAMANTE 

QUE QUIERES HACER? DEJAR ANILLO Po) 


TE QUEDAN POR LOCALIZAR 1 OBJETOS 


Sin embargo, esto no te proporciona, por el momento, poderes sobre- 
naturales. Finalmente, tras cincuenta y cuatro jugadas, logras lo que 


querías: 
LLEVAS CONTIGO 1 VARITA MAGICA 5 
QUE QUIERES HACER? DEJAR VARITA [) 
TE QUEDAN POR LOCALIZAR O OBJETOS 
5 Y 
LO HAS CONSEGUIDO' Lo) 
HAS LOGRADO TRAER 6 OBJETOS HASTA EL 
ALMACEN 
ESPADA EE 
PENTAGONO PODEROSO ¡A 


POCION DE CICUTA 
ESTATUA DE BRONCE 


ANILLO DE DIAMANTE ON 
VARITA MAGICA 


LO HAS HECHO EN 54 MOVIMIENTOS 


algo puedes escoger entre DEJAR y SOLTAR. Para abandonar la aventu- 
ra (¡como si fueras a hacerlo tan fácilmente!), basta con que teclees ABAN- 
DONAR. IR seguido de NORTE, SUR, ESTE u OESTE te llevará en la 
dirección que escojas. 

Con este listado puedes aceptar el reto impuesto por el mago: 


J t 
DL EA 00 000 20 GOSUB 1000: REM INICIALIZACION ' 
O | 2 REM +» * 30 FOR I=1 TO 1000:NEXT 1 ! O 
| 3 REM * EL LABERINTO MAGICO + 40 CLS:PRINT:PRINT ó 
1. 4 REM + * 50 MOVI=MOVI+1 I 
Oo DS REMO 696206 96-96-06-6-06-6-26-06-060606 MEDIA 60 PRINT TAB(2+RND(1)*+6)5 "ESTE ES EL A O 
! 10 REM MOVIMIENTO"MOVI ! 


OO O OOOO OoOo0osO0osmom0o0 


O 0 


Oo DOoOoDp0oosoo0o 


O 


O 


70 PRINT:PRINT "ESTAS EN "3N$(RO) 
80 IF RO<>1 THEN 140 


90 FL=0 

100 PRINT "QUE CONTIENE: " 

110 FOR Z=1 TO 8 

120 IF P$(Z)<>"" THEN PRINT "1 "3PS$(Z 
)2 FL=1 

130 NEXT Z 

140 IF FL=0 THEN PRINT TAB(6)5 "NADA" 
150 PRINT 

160 PRINT:PRINT "HAY SALIDAS HACIA EL 
170 PRINT TAB(7)5 

180 IF A(RO,1)<>0 THEN PRINT "NORTE " 
, 

190 IF A(RD,2)<>0 THEN PRINT "SUR "3 
200 IF A(RO,3)<>0 THEN PRINT "ESTE "5; 
210 IF A(RD,4)<>0 THEN PRINT "OESTE " 
220 PRINT:PRINT 


230 IF RO<>1 AND OS$(RO)<>"" THEN PRIN 
T "LA HABITACION CONTIENE":PRINT "i " 
30$ (RO): PRINT 

240 IF M$<>"" THEN PRINT 
IGO 1 "¿MS 

250 IF M$="" THEN PRINT 
ANOS VACIAS" 

260 GOSUB 300 

270 GOTO 30 

280 REM 31% 46-46 46 46 16-26-2610 -26 2030 363616 


"LLEVAS CONT 


"TIENES LAS M 


290 REM ENTRADA DE DATOS 

300 PRINT:PRINT "QUE QUIERES HACER"; 
310 INPUT ES 

320 IF LEN(ES)<7 THEN ES=E$+" ":GOTO 
320 

330 FS=LEFTS(ES, 3) 

340 IF F$="PAR" THEN 960 

350 IF F$="IR " THEN F$=MIDS(ES, 4,3) 
360 IF F$="NOR" OR F$="SUR" OR F$="ES 
T" OR F$="0ES" THEN GOSUB 460: RETURN 
370 Z=1 


380 IF MIDS$(E$,Z,1)=" " THEN G$=MIDS ( 
E$,Z+1,3):GOTO 420 


390 IF Z<LEN(ES) THEN Z=Z+1:GOTO 380 


400 PRINT "NO ENTIENDO ESO" 

410 RETURN 

420 IF F$="C0G" OR F$="TOM" THEN GOSU 
B 6500: RETURN:REM "COGER" O "TOMAR" 
430 IF F$="PON" OR F$="DEJ" THEN GOSU 
B 680:RETURN:REM "PONER" O "DEJAR" 


440 GOTO 400 

450 REM 363646464646 -16 3616 46 

460 REM MOVIMIENTO 

470 FS$=LEFTS(F$, 1) 

480 IF F$="N" THEN 530 
490 IF F$="S" THEN 550 
500 IF F$="E" THEN 570 


510 IF A(RO,4)=0 THEN PRINT "SOLO LOS 
FANTASMAS PUEDEN ATRAVESAR LAS PARE 
DES”: RETURN 

520 RO=A(RO, 4) : RETURN 

530 IF A(RO,1)=0 THEN PRINT "NO HAY S 
ALIDAS EN ESA DIRECCION": RETURN 

540 RO=A (RO, 1) : RETURN 

550 IF A(RO,2)=0 THEN PRINT "AHI HAY 
UN ESPESO MURO": RETURN 

560 RO=A(RO, 2) : RETURN 

570 IF A(RO,3)=0 THEN PRINT "ESO ES I 
MPOSIBLE" : RETURN 

580 RO=A(RO, 3) 2: RETURN 
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590 
600 
610 
620 


A 

REM RUTINA PARA COGER OBJETOS 

IF RO=1 THEN RETURN 

IF LEFTS (G$,3)<>LEFTS(0$(RO),3) T 


HEN PRINT "NO ESTA AQUI "2: RETURN 

630 IF M$<>"" THEN PRINT "SOLO PUEDES 
LLEVAR UNA COSA A LA VEZ": RETURN 

640 M$=0$ (RO) 

650 OS(RO)="" 

660 RETURN 

670 REM 364646363636 26-16-36 636 36 dE DEE HEHE MAA 

680 REM RUTINA PARA DEJAR COSAS 

690 IF M$="" THEN PRINT "NO LO LLEVAS 


CONTIGO" : RETURN 

700 IF RO=1 THEN 750 

710 IF O$(RO)<>"" THEN PRINT 
BITACION YA"2 PRINT "TIENE 1 
2 RETURN 

720 OS(RO) =M$ 

730 MS="" 

740 RETURN 
750 SITU=0:FL=0 
760 FOR Z=1 TO 6 
770 IF SITU=1 THEN 790 
780 IF P$(Z)="" THEN P$(7)=M$:SITU=18 
Ms="" 
790 1F P$(Z7)<>"" THEN FL=FL+1 
800 NEXT Z 
810 IF FL=0 THEN PRINT TAB(8)5 "NADA" 
820 PRINT:PRINT “TE QUEDAN POR LOCALI 
ZAR"56-FL5 "OBJETOS" 
830 FOR I=1 TO 700: NEXT 1 
840 IF FL=6 THEN 870:REM FIN DE JUEGO 
RILOCALIZADOS TODOS LOS OBJETOS4% 
RETURN 
E 
REM FIN DE JUEGO 
880 PRINT:PRINT "LO HAS CONSEGUIDO! " 
890 PRINT:PRINT "HAS LOGRADO TRAER 6 
OBJETOS HASTA EL":PRINT TAB(10)5 "ALMA 
CEN" 
$00 
910 
(7) 
920 
930 
940 
950 
960 
TAN 
970 


"ESTA HA 
*30$ (RO) 


eso 
860 
870 


FOR Z=1 TO 8 
IF P$(Z7)<>"" THEN PRINT TAB(2);PS 


NEXT Z 
PRINT "LO HAS HECHO EN"; 
PRINT MOVI"MOVIMIENTOS" 
END 
PRINT:PRINT 
COBARDE! " 
PRINT "HAS SOBREVIVIDO DURANTE"; 
GOTO 940 

A 

REM INICIALIZACION 

CcLs 

DIM A(9,4),N$(9),0$(18),P$(9),M( 


"NO CREIA QUE FUERAS 


RO=INT (RND(1)+8) +22 REM 
HABITACION INICIAL 

FOR J=1 TO 9 

READ N$(J):REM NOMBRE DE LA 
HABITACION 

NEXT J 

FOR J=1 TO 18 

READ 0$ (J) 

NEXT J 

REM RUTINA DE DISTRIBUCION DE 

OBJETOS 
FOR J=18 TO 11 STEP -1 


O 


o (0 OO 0.0000 0.0 :0.) 0. 0.000 


o. Oo 


O 


o. oO 


¡y 1120 Z=INT(RND(1)*J)+1 1260 DATA "CANDELABRO ROTO", "DOBLON D ¡ O 
| 1130 M$=0$(Z) E ORO", "ESMERALDA", "ESTATUA DE BRONCE |! 
¡ 1140 0O$(Z)=0$(J) ","CALIZ DE PLATA", "ESPADA", "ANILLO D ! 
| 1150 0$(J)=MS E DIAMANTE", "COPA DE CRISTAL”, "JARRON 1 O 
1160 NEXT J kl 
y 1170 M$="":REM ESTE ES EL OBJETO QUE 1270 DATA "PERGAMINO MAGICO", "VARITA 1 
: EL JUGADOR LLEVA CONSIGO MAGICA", "COLA DE TRITON", “POCION DEC 1 O 
Í 1180 MOVI=0 ICUTA", "PAPIRO DE CONJUROS", "KRIPTONI | 
1190 FOR J=1 TO 9 TA NEGRA", "GEMA REFULGENTE", "CUARZO M ! 
|. 1200 FOR K=1 TO 4 AGICO", "PENTAGONO PODEROSO" O 
1 1210 READ A(J,K) 1280 DATA 0,0,2,0:REM HABITACION 1 ' 
| 1220 NEXT K 1290 DATA 0,6,0,1:REM HABITACION 2 ! 
1230 NEXT J 1300 DATA 0,9,7,0:REM HABITACION 3 O 
! 1240 RETURN 1310 DATA 0,0,5,0:REM HABITACION 4 l 
1 1250 DATA "EL ALMACEN", "EL TORREON SI 1320 DATA 0,7,6,4:REM HABITACION 5 : 
l' NIESTRO", "EL SALON DE MARMOL", "LA BIB 1330 DATA 2,0,0,5:REM HABITACION 6 O 
' LIOTECA","LA CAMARA DE LAS AUDIENCIAS 1340 DATA 5,0,8,3:REM HABITACION 7 ! 
 ","EL DORMITORIO DEL SENOR","LA SALA 1350 DATA 0,0,9,7:REM HABITACION 8 1 
DE ESTAR", "EL ESTUDIO DEL ARTISTA", "E 1360 DATA 3,0,0,8:REM HABITACION 9 LO 
] I 
[] 0 


L REFUGIO DEL MUSICO" 


Cuando hayas solucionado este rompecabezas, quizá te apetezca meter- 
te en otros laberintos. Estos utilizan casi el mismo programa, pero con 
diferentes sentencias DATA. Simplemente sustituyendo las sentencias 
DATA que aquí se dan por las que aparecen en el programa original, tendrás 
dos nuevos laberintos con los que devanarte los sesos. 


Estas son las sentencias DATA para el laberinto número dos: 


1300 DATA 5, 0, 6, 0: REM HABITACION 1 
1310 DATA 7, 0, 0, 0: REM HABITACION 2 
1320 DATA O, 6, 4, 5: REM HABITACION 3 
1330 DATA 0, 8, 0, 3: REM HABITACION 4 
1340 DATA O, 1, 3, 0: REM HABITACION 5 
1350 DATA 3, 7, 0, 1 : REM HABITACION 6 
1360 DATA 6, 2, 0, 9 : REM HABITACION 7 
1370 DATA 4, 0, 0, 0: REM HABITACION 8 
1380 DATA 0, 0, 7, 0: REM HABITACION 9 
Y éstas las del número tres: 

1300 DATA 5, 0, 0, 8 : REM HABITACION 1 
1310 DATA 0, 4, 3, 0 : REM HABITACION 2 
1520 DATA 0, 7, 6, 2 : REM HABITACION 3 
1330 DATA 2, 8, 9 O: REM HABITACION 4 
1340 DATA 1, 0, 0, 9 : REM HABITACION 5 
1350 DATA 0, 0, 0, 3: REM HABITACION 6 
1360 DATA 3, 0, 0, O: REM HABITACION 7 
1370 DATA 4, 0, 1, 0: REM HABITACION 8 
1380 DATA 0, 0, 5, 4 : REM HABITACION 9 


Los nombres de muchos de los contenidos de las habitaciones los he 
tomado del libro The Magicians, de James Gunn (Methuen Paperbacks 
Ltd., Londres, 1980). Muchos de los objetos aparecían mencionados en un 
anuncio ficticio de objetos mágicos (pág. 26). 
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Parte lll 
Juegos de guerra 


LA PRIMERA BATALLA 
DE BULL RUN 


LA BATALLA DE GETTYSBURG 
A LOS DADOS 


LOBO DE MAR 


La primera 
batalla de 
Bull Run 


La primera de las dos batallas que se dieron en Bull Run fue asimismo 
la primera batalla de la Guerra de Secesión de Estados Unidos. Tuvo 
lugar en el mes de julio de 1861, sólo unas semanas después de que la 
ciudad de Washington quedara virtualmente sitiada por las tropas sureñas, 
quienes se apoderaron del Harper's Ferry Arsenal y del Norfolk Navy 
Yard y cortaron el ferrocarril de Baltimore y Ohio, dejando así a la capital 
sin comunicaciones con el Oeste. 

Nuestra batalla tiene lugar en los mismos frentes que la batalla real, 
pero el resultado está en tus manos, en lugar de depender de la historia. 

El Ejército de la Unión estaba al mando del general Irvin McDowell 
(1818-85) y el general Pierre Gustave Toutant Beauregard (1818-93) co- 
mandaba las tropas de los Estados Confederados del Sur. Al inicio del 
juego se te deja escoger cuál de los dos quieres ser y el ordenador hará el 
papel del bando contrario: 


Esta es la Primera Batalla de Bull 

Run que tuvo lugar el 21 de julio de E 
1861, y fue el primer gran combate de lo) 
la Guerra de Secesion americana 


Puedes ser: 


5 ON 
1- Cap. Gen. Irvin Mc Dowell 


(union) 


2- El Gen. P G T Beauregard 


[) (confederados) 
LL) 


Introduce 1 o 2? 1 


Después de haber escogido tu papel, se te pide que distribuyas tus 
tropas por el campo de batalla. En este juego, tú y el ordenador contáis 
con 100 tropas cada uno. Una vez iniciado el juego vais escogiendo por 
turno el lugar de cada combate en particular. 

Gana el combate aquél que tenga más hombres en ese lugar y sus 
alrededores. Los hombres del ejército derrotado son retirados del campo, 
mientras que los del ejército vencedor permanecerán en los sucesivos 
combates. 

El juego, o la batalla, termina cuando ya se han dado los 18 combates 
de que consta; terminará antes en el caso de que a ambos le queden 
menos de 16 tropas o cuando uno de ellos doble el número de tropas de 
su contrincante. Se declara vencedor total de la batalla aquel general que 
haya capturado más territorios y no el que tenga más hombres vivos al 
final del día. Por muy horrible que pueda parecer, este es el modo en que 
se ganan o se pierden las batallas en la realidad. 

Como decíamos antes, en primer lugar has de decidir qué bando 
quieres ocupar, tras lo cual distribuyes tus tropas. Las treinta y seis zonas 
de combate corresponden todas ellas a lugares reales y, aunque las distan- 
cias entre ellas no son del todo correctas, sí que lo es la relación que 
guardan en cuanto a sus respectivas situaciones. Puedes comparar el 
trazado que aquí se ofrece con un mapa a fin de orientarte un poco. 

Estos son los escenarios de los combates: 


MARTINSBURG —HARPER'S SHARPSBURG BALTIMORE Y MT AIRY BALTIMORE 
FERRY OHIO R.R. 

WINCHESTER BALL'S BLUFF LEESBURG CENTREVILLE WASHINGTON ANNAPOLIS 

STRASBURG PARIS BLACKBURN'S THE STONE ALEXANDRIA PATUXENE 
FORD BRIDGE RIVER 

MANASSAS PIEDMONT BULLRUN SUDLEY POTOMAC CHESAPEAKE 

GAP R.R. SPRINGS FORD RIVER BAY 

BRANDY RAPPAHANNOCK  MANASSAS AQUIA FREDER- SALISBURY 

STATION RIVER JUNCTION LANDING ICKSBURG 

GORDONSVILLE RAPIDAN RIVER CHANCELL- SPOTSYLVANIA WEST POINT PRINCESS 
ORSVILLE ANNE 
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A la hora de distribuir las tropas el ordenador irá nombrando cada 
uno de estos lugares: tú no tienes más que introducir el número de tropas 
que quieres situar en esa zona: 


AHORA PUEDES DESPLEGAR TUS 
TROPAS, IRVIN MC DOWELL 
TIENES 100 TROPAS 


MARTINSBURG? 3 
TE QUEDAN 97 TROPAS 


HARPER?S FERRY? 5 
TE QUEDAN 92 TROPAS 


SHARPSBURG? 2 
TE QUEDAN 90 TROPAS 


OHIO/BALT R.R.? 5 
TE QUEDAN 85 TROPAS 


MTAIRY? O 
TE QUEDAN 85 TROPAS 


BALTIMORE? 4 
TE QUEDAN 81i TROPAS 


WINCHESTER? 2 


Seguidamente se te muestra el campo de batalla con la distribución de 
tus tropas y las del bando contrario expuestas bajo una abreviatura del 
nombre de los diferentes sectores: 


MART HARP — SHAR OHIO MTAI  BALT | 
3422535195 .44.0001s0sm1 Y 
WINC BALL  LEES CENT WASH ANNA 

5035655005 .030 2.0.3 >] 
STRA PARI BLAC STON ALXA PATU ES, 


2554535501073 
GAPM PIED BULL SUDL POTO CHES E 
5453546550108 ¡e 
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BRAN RAPP — MANA AQUI  FRED SALI 
0Q05.55.-o0555-)00440:5.0.0 


a 


GORD RAPI CHAN SPOT WEST FRIN 
4153530050000 4 


IRVIN MC DOWELL  >>>> 100 TROPAS 
PG T BEAUREGARD >>>> 100 TROPAS 


1) 


Para luchar introduces el nombre de la zona que quieres atacar (con la 
abreviatura de cuatro letras será suficiente), el ordenador la imprimirá 
entonces en la pantalla (utilizando su forma completa), calculará cuántas 
tropas tiene cada bando en esa zona y sus alrededores (las zonas colindan- 
tes) y luego determinará quién ha ganado la batalla: 


IRVIN MC DOWELL  >>>> 100 TROPAS 
P. G T BEAUREGARD >>>> 100 TROPAS 


) 


POR FAVOR, SELECCIONA ZONA-- >? MART 


CAMPO DE BATALLA -— MARTINSBURG 


1 


* MARTINSBURG + 


1) 


PG T BEAUREGARD TIENE 12 
IRVIN MC DOWELL TIENE 15 


BIEN HECHO! 
3] IRVIN MC DOWELL HA GANADO LA BATALLA 
lo) DE MART INSBURG 


Tras ello, se vuelve a imprimir el mapa de las zonas de combate. 
Como ves, el vencedor de este combate fue el jugador (McDowell), de 
modo que sus hombres permanecen todos en el campo de batalla, mien- 
tras que los que tenía el ordenador (Beauregard) situados en ese escenario 
y sus alrededores han desaparecido: 


MART HARP— SHAR OHIO MTAI  BALT 
3020515 440.11s0s1 


1) 


WINC BALL  LEES CENT WASH ANNA 
S505.050:5030._20 3 


STRA FPARI BLAC STON ALXA PATU 
235354535 501s.0s3 


E 


GAPM PIED BULL  SUDL — POTO  CHES 
5.453356.-5:550mw_103 


[ 


BRAN RAPP— MANA AQUI  FRED SALI 
O055.5.55.00.02%440.5.0. 0 


GORD RAPI CHAN SPOT WEST  PRIN 
41535.-_3.000).000 04 


Ñ 
LJ) 


Ahora escoge el ordenador el lugar que quiere atacar y la lucha 
continúa: 


LUCHARE EN GORDONSVILLE 
IRVIN MC DOWELL TIENE O 
PG TOBEAUREGARD TIENE 14 


EN LA BATALLA DE GORDONSVILLE 
HA VENCIDO P G T BEAUREGARD 


30 20.5115.A40u1s0s1 


WINC BALL LEES CENT WASH ANNA 
50 5.500:35.05.00 2 


O 
Y 
1) 

L 


STRA PARI BLAC STON ALXA  PATU 
050.0. 50.5.0s.0os1os0s3 


[) 


GAPM PIED BULL — SUDL — POTO  CHES 
0400505000003 


BRAN RAPP — MANA AQUI  FRED SALI 
0353055.004000500 


1) 


GORD RAPI CHAN SPOT WEST PRIN 
0103500.0.00u0 4 


) 


Y sigue el juego: 


POR FAVOR, SELECCIONA ZONA-->? AQUI 


a 
LL) 


CAMPO DE BATALLA -— AQUIA LANDING 


3 
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* AQUIA LANDING + 


ha 


PG T BEAUREGARD TIENE 13 
IRVIN MC DOWELL TIENE 24 


A BIEN HECHO! 
LJ IRVIN MC DOWELL HA GANADO LA BATALLA 
DE AQUIA LANDING 


Al final, cuando se ha cumplido una de las tres condiciones menciona- 
das con antelación, que ponen fin a la partida, el ordenador imprime un 
resumen de todo lo sucedido y da el nombre del vencedor total de la 


ASI SE HA DESARROLLADO LA ACCION: 
TROPAS RESTANTES: 
P G T BEAUREGARD 38 
IRVIN MC DOWELL 47 


IRVIN MC DOWELL HA GANADO EN 


PARIS 
P G T BEAUREGARD HA GANADO EN 
SHARPSBURG 
[] IRVIN MC DOWELL HA GANADO EN 
lo) PIEDMONT 
P G T BEAUREGARD HA GANADO EN 
CHANCELLORSVILLE 
PA IRVIN MC DOWELL HA GANADO EN 
[y WINCHESTER 
P G T BEAUREGARD HA GANADO EN 
WEST POINT 


IRVIN MC DOWELL HA GANADO EN 
HARPER”? S FERRY 

PG T BEAUREGARD HA GANADO EN 
ANNAPOL IS 


L] 


LA BATALLA DE BULL RUN HA FINALIZADO 
Y EL VENCEDOR HA SIDO 
> NINGUNO DE LOS DOS < 


1] 


O” 0.0: 00..0:00:0 0. 0 00-10 0-00 


O 


Oo Oo Oo. Oo 


O 


O 


Ahora ha llegado el momento de que pongas tu granito de arena en la 


recreación de la historia: 


1 REM Ies06 161666 M6 M6 6-26 60H AHHH 
2 REM » + 
3 REM * LA PRIMERA BATALLA DE + 
4 REM + BULL RUN * 
5 REM +* + 
6 REM 4464426463616 4063626 26-06-2626 6-16 366 2040 24 406 
10 REM 


20 GOSUB 1300:REM INICIALIZACION 
30 GOSUB 1820 

40 CLSi1PRINT:PRINT 
DE LA SITUACION, " 
50 PRINT HS 

60 GOSUB 1820 

70 GOSUB 1130:REM IMPRESION DEL MAPA 
80 IF HC<146 OR CC<146 OR HCX<CC/2 OR CC 
<HC/2 OR BATALLA=18 THEN 790:REM FIN 
90 PRINT H$5" >>>>"3HC"TROPAS" 

100 PRINT C$3" >>>>"3CC"TROPAS" 

110 GOSUB 1820 

120 IF INKEYS$<>"" THEN 120 

130 BATALLA=BATALLA+1 

140 GOSUB 440: REM ELECCION JUGADOR 
150 GOSUB 1820 

160 GOSUB 1130 

170 GOSUB 1820 

180 IF HC=0 OR CC=0 THEN 790 

190 BATALLA=BATALLA+1 

200 GOSUB 230: REM ELECCION ORDENADOR 
210 GOTO 30 

220 REM 444662626166 26d 6 16d Md 6 HH 

230 REM ELECCION DEL ORDENADOR 

240 HT=0:CT=0 

250 D=2 

260 E=2 

270 GOSUB 1070 

280 IF CT>HT THEN 330 

290 IF E<7 THEN E=E+1:GOTO 270 

300 IF D<7 THEN D=D+1:GOTO 270 

310 E=INT(RND(1)+6)+2 

320 D=INT(RND (1)+06)+2 

330 F$=B$(E,D) 

340 FL=0:GOSUB 1010: 1F FL=1 THEN 290 
350 PRINT "LUCHARE EN "5B$(E,D):F$=BS$ 
(E,D) 

360 RS$(BATALLA) =F$ 

370 GOSUB 1820 


"ATENTO AL INFORME 


380 PRINT H$3" TIENE"HT 
390 GOSUB 1820 
400 PRINT C$3" TIENE"CT 


410 GOSUB 1820 

420 GOTO 600 

430 REM 340436 44 36 36 34 26 26 33086 dE ME DE DEE MED DE DIME 

440 REM EL JUGADOR SELECCIONA ZONA 

450 PRINT 

460 INPUT "POR FAVOR, 

=->"3FS 

470 IF LEN(F$)<>4 THEN 460 

480 PRINT 

490 D=0:E=U 

500 FOR X=2 TO 7 

510 FOR Y=2 TO 7 

520 IF LEFTS(F$,4)=LEFTS (B$(X,Y),4) T 

HEN E=X:D=Y:PRINT "CAMPO DE BATALLA - 
"3BS(X,Y):FS=B$(X, Y) 


SELECCIONA ZONA 


530 NEXT Y 

540 NEXT X 

550 FL=0:GOSUB 1010: 1F FL=1 THEN PRIN 

T F$;3" HA FINALIZADO": GOSUB 1820: GOTO 
460 

560 R$(BATALLA) =F$ 

570 GOSUB 1070 

580 PRINT:PRINT:PRINT TAB(INT(37-LEN ( 

FS)-2)/2)3"% "5FS5" *":PRINT 

590 PRINT C$5" TIENE"CT:PRINT H$;3" TI 
ENE"HT 

600 PRINT 

610 IF HT=CT THEN PRINT TAB(8)3"> NO 
HA HABIDO BATALLA <":GOSUB 1820: RETUR 
N 

620 IF HT>CT THEN PRINT "BIEN HECHO!" 
¿PRINT Hs$5" HA GANADO LA BATALLA DE ” 
FS: PS(BATALLA) =F$ 

630 GOSUB 1820 

640 IF CT>HT THEN PRINT "EN LA BATALL 
A DE ";5F$:PRINT "HA VENCIDO "3C$:0$(B 
ATALLA)=F$:GOTO 710 

650 A(D-1,E-1)=0:A(D-1,E)=0 

660 A(D-1,E+1)=0:A(D,E-1)=0 

670 A(D,E+1)=0:A(D+1,E+1)=0 

680 A(D+1,E)=0:A(D+1,E-1)=0 

6790 A(D,E)=0 

700 RETURN 

710 G(D-1,E-1)=0:G(D-1,E)=0 

720 G(D-1,E+1)=0:G(D,E-1)=0 

730 G(D,E+1)=0:G(D+1,E+1)=0 

740 G(D+1,E)=0:G(D+1,E-1)=0 

750 G(D,E)=0 

760 GOSUB 1820 

770 RETURN 

780 REM 430443646 36 16-36-2616 36-26 6 36 26 6H HEHE 

790 REM FIN DE LAS BATALLAS 

800 PRINT:PRINT 

810 PRINT "ASI SE HA DESARROLLADO LA 
ACCION: “GPRINT "—====================- 


PRINT "TROPAS RESTANTES: " 

PRINT 

PRINT 

PRINT 

PRINT 

HW=0:CW=0: REM VICTORIA DEL HUMANO 
Y EL ORDENADOR 

FOR Z=1 TO BATALLA 

FOR T=1 TO 300:NEXT T 

900 IF P$(Z)<>"" THEN PRINT H$;5" HA G 

ANADO EN":PRINT P$(7): HW=HW+1 

910 IF Q$(Z7)<>"" THEN PRINT C$;" HA G 

ANADO EN":¿PRINT Q$(Z): CW=CW+1 

920 NEXT Z 

930 PRINT:PRINT "LA BATALLA DE BULL R 

UN HA FINALIZADO" 

940 PRINT "Y EL VENCEDOR HA SIDO "3 

950 IF CW>HW THEN PRINT C$ 

960 IF HW>CW THEN PRINT HS 

970 IF HW=CW THEN PRINT:PRINT TAB(8)5 

"> NINGUNO DE LOS DOS <" 

980 IF HW>CW THEN PRINT "ENHORABUENA, 


TAB (18) ;H$5HC 


ooo o O 


o0 OOO OOOO Oo 0oOOoOoOoOoO0om0osasomo0 


O 


Oo0O0O OOO OOOO OO OOOAO O 


o. Oo 


o. oO 


DATA 

990 END 

1000 REM 3636-36-36 36 36 36-36-36 16-26-16 1 -JE-IE-IE-IEIE IMEI IE III 

1010 REM COMPRUEBA SI ANTES SE HA 
COMBATIDO EN ESE LUGAR 

1020 FOR K=1 TO BATALLA 

1030 IF LEFTS(F$,4)=LEFTS(R$(K),4) TH 

EN FL=1 


1040 NEXT K 

1050 RETURN 

1060 REM 13616363626 26-96-26 46-260 M6 IEA HE 

1070 REM SUBRUTINA DE CUENTA 

1080 HT=0:CT=0 

1090 HT=G(D-1,E-1)+G(D-1,E)+G(D-1,E+1 


)+G(D,E-1)+G(D,E)+G(D,E+1)+G(D+1,E+1) 

+6(D+1,E)+G(D+1,E-1) 

1100 CT=A(D-1,E-1)+A(D-1,E)+A(D-1,E+1 

3+A(D,E-1)+A(D,E)+A(D,E+1)+A(D+1,E+1) 

+A (D+1,E)+A4(D+1,E-1) 

1110 RETURN 

1120 REM 3036266462636 36 6-36 2426-26 96 20110 HE 

1130 REM IMPRESION DEL MAPA 

1140 HC=0:CC=0: REM CUENTA DEL JUGADOR 
Y DEL ORDENADOR 

1150 

1160 

1170 

1180 


CLS:PRINT 

FOR E=2 TO 7 

FOR J=1 TO 2 

FOR D=2 TO 7 

1190 IF J=1 AND D=2 THEN PRINT " "5 
1200 IF J=1 THEN PRINT LEFTS(BS(E,D), 
Dro”; 

1210 IF J=2 THEN PRINT G(D,E)>5A(D,E)5 
1220 HC=HC+G (D, E) : CC=CC+A (D, E) 

1230 NEXT D 

1240 NEXT J 

1250 PRINT:PRINT 

1260 NEXT E 

1270 HC=HC/2: CC=CC/2 

1280 RETURN 

1290 REM 44 36-26-46-36 1636-36-26 36 36463636 

1300 REM INICIALIZACION 

1310 CLS 

1320 DIM A(8,8),G(8,8),B$(8,8),0$ (36) 
»P$(36),R$(36) 

1330 H$="IRVIN MC DOWELL ":C$="P G T 
BEAUREGARD" 

1340 PRINT:PRINT 

1350 PRINT "Esta es la Primera Batall 
a de Bull Run que tuvo lugar el 21 
de julio de 1861, y fue el primer gra 
n combate dela Guerra de Secesion ame 
ricana" 

1360 PRINT:PRINT:PRINT 

1370 PRINT "Puedes ser:":PRINT:PRINT 
TAB(5S);"1- Cap. Gen. Irvin Mc Dowell": 
PRINT TAB(15)3"(union)" 

1380 PRINT 

1390 PRINT TAB(5)3"2- El Gen. PG TB 
eauregard":PRINT TAB(12)5" (confederad 
0s)":PRINT 

1400 INPUT "Introduce 1 o 2"3F 

1410 IF F<1 OR F>2 THEN 1400 

1420 CLS 


1430 IF F=2 THEN MS$=H$: H$=C$: C$=M$ 

1440 PRINT:PRINT "POR FAVOR, PRESTA A 

TENCION, "¿PRINT HS$ 

1450 FOR T=1 TO 500:NEXT T 

1460 FOR D=2 TO 7 

1470 FOR E=2 TO 7 

1480 READ BS$(D,E) 

1490 NEXT E 

1500 NEXT D 

1510 GOSUB 1130:REM IMPRESION MAPA 

1520 FOR T=1 TO 30:PRINT:FOR J=1 TO 1 

SO:NEXT J:NEXT T 

al PRINT "AHORA PUEDES DESPLEGAR TU 

1540 HT=100:CT=100:REM TROPAS DEL 
JUGADOR Y DEL ORDENADOR 

PRINT "TROPAS, "3Hs 

PRINT "TIENES 100 TROPAS" 

FOR D=2 TO 7 

FOR E=2 TO 7 


PRINT "===============os=o=m=== 


1550 
1560 
1570 
1580 
1590 

==S========E" 

1600 PRINT B$(D,E)5 

1610 INPUT G(D,E) 

1620 IF G(D,E)>9 THEN PRINT "DEMASIAD 
AS TROPAS EN UNA SOLA ZONA":*GOTO 1610 
1630 IF HT-G(D,E)<0 THEN PRINT "NO TE 
QUEDAN TANTAS":GOTO 1610 

1640 HT=HT-G(D, E) 

1650 X=INT(RND(1)*7) 

1660 IF CT-X<0 THEN X=0 

1670 A(D,E)=X:CT=CT-X 

1680 PRINT "TE QUEDAN"HT"TROPAS" 

1690 
1700 
1710 
SSI =====m" 

1720 IF CT>0 THEN A(4,5)=A(4,5)+CT 
1730 BATALLA=0 

1740 RETURN 

1750 DATA "MARTINSBURG","HARPER?S FER 
RY", "SHARPSBURG", “OHIO/BALT R.R.","MT 
AIRY", "BALTIMORE" 

1760 DATA "WINCHESTER", "BALL”S BLUFF" 
», "LEESBURG","CENTREVILLE", "WASHINGTON 
", "ANNAPOL IS" 

1770 DATA "STRASBURG", "PARIS", "BLACKB 
URN*S FORD", "STONE BRIDGE", "ALEXANDRI 
A", "PATUXENT RIVER" 

1780 DATA "GAPMANASSAS R R","PIEDMONT 
", "BULL RUN", "SUDLEY SPRINGS", "POTOMA 
C RIVER","CHESAPEAKE BAY" 

1790 DATA "BRANDY STATION", "RAPPAHANN 
OCK R.","MANASSAS JUNCTION","AQUIA LA 
NDING","FREDERICKSBURG", "SAL ISBURY " 
1800 DATA "GORDONSVILLE","RAPIDAN RIV 
ER”, "CHANCELLORSVILLE", "SPOTSYLVANIA" 
, "WEST POINT","PRINCESS ANNE" 

1810 REM 33031630 

1820 REM RETARDO 

1830 FOR T=1 TO 1000:NEXT T 

1840 RETURN 
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La 
batalla de 
Gettysburg 
a los dados 


Entre el 1 y el 3 de julio de 1863, la guerra de Secesión hizo sus 
estragos en la comarca de Gettysburg. El Ejército confederado de Virginia 
estaba al mando del general Robert E. Lee y el Ejército unionista del 
Norte al del general George C. Meade. 

A diferencia de otras complejas simulaciones de batallas famosas, este 
“juego de guerra” nos permite volver a escribir la historia, sencillamente, 
tirando unos cuantos dados. 

Al inicio del juego se te pregunta qué ejército quieres dirigir: 


LA BATALLA DE GETTYSBURG 8 


L) 


Estamos a 2 de julio de 1863, segundo 
dia de la Batalla de Gettysburg... 


Deseas estar al mando del Ejercito 
Confederado de Virginia del Norte 
como Robert E. Lee (1), o al del 
Ejercito Unionista de Potomac, como 


George C. Meade (2) 
21 


IO 


L 


81 


_ Cuando ya lo hayas decidido, el ordenador te explicará las reglas del 
juego: 


En esta representacion del segundo 
dia de lucha, eres Robert E. Lee 
al mando de los Confederados 


1) 
E 


Lanzaremos dos dados para determinar 
el resultado de las pequenas batallas 
parciales entabladas para apoderarse 
de los diferentes territorios que 
componen la zoma de Gettysburyg 


Tienes que adivinar si el total de 
los dados sera inferior o superior 
a siete 

(un total de siete no es posible...) 


| 
LL) 


Por favor, atento... 


Tras lo cual, se entra directamente en el fragor de la lucha: 


> Batalla 1 - Little Round Top 


Ahora, General Robert E. Lee 

es cuando tienes que predecir 
cuanto sera el total 

A -—- Inferior a siete 
B - Superior a siete 


JLo 


Preparado para la lucha, mi General. 


Gb je: ER, A DR A 


1 


El total ha sido 3 


a 


Bien hecho, mi General... 
Has vencido a George C. Meade 


en la batalla de Little Round Top 
Robert E. Lee va ganando... 

La moral de tus tropas es 

de un 100 % 


> Batalla 2 -— Cemetry Ridge 


Ahora, General Robert E. Lee 
es cuando tienes que predecir 
cuanto sera el total 
A -— Inferior a siete 
B -— Superior a siete 


Preparado para la lucha, mi General. 
7 4>75> 10 3 


El total ha sido 3 


Bien hecho, mi General... 

Has vencido a George C. Meade 
en la batalla de Cemetry Ridge 
Robert E. Lee va ganando... 

La moral de tus tropas es 

de un 100 % 


Ahora, General Robert E. Lee 
es cuando tienes que predecir 
cuanto sera el total 
A — Inferior a siete 
B - Superior a siete 


Preparado para la lucha, mi General. 


E 


4 >> 95>5> 5>5> 8 10 >> 8>> 64 
2> 9 7 9 


1) 


El total ha sido 9 


L) 


Bien hecho, mi General... 

Has vencido a George C. Meade 
en la batalla de Devil”s Den 
Robert E. Lee va ganando... 
La moral de tus tropas es 

de un 100 % 


AD 


> Batalla 8 -— Seminary Ridge 


Ahora, General Robert E. Lee 
es cuando tienes que predecir 
cuanto sera el total 
A -—- Inferior a siete 
B - Superior a siete 


JO 


Preparado para la lucha, mi General. 


6 >> 55>5> 45> 12 7 13 6 


L 


El total ha sido 4 


1] 


Lo siento, mi General... 

pero la batalla de Seminary Ridge 
ha sido ganada por George C. Meade 
Robert E. Lee va ganando... 

La moral de tus tropas es 

de un 735 % 


[] 


Los combates son nueve en total; todos ellos se desarrollan en torno a 
esa histórica plaza. Al final de las escaramuzas, se te muestra un resumen 
de la acción y, posteriormente, se determina el resultado de la batalla de 
Gettysburg: 


' 
' 
' 
1 
' 
1 
' 
' 
" 
1 
' 
' 
' 
t 
' 
t 
1 
1 
1 
1 
1 
t 
t 
' 
1 
1 
' 
' 
t 
t 
' 
1 
1 
' 
' 
1 
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Como puedes ver, 


gano la mayoria de las batallas 


parciales. 
Por lo tanto, 


a Robert E. Lee 


Robert E. Lee Po) 
A 

en el dia de hoy, 2 de 

julio de 1863, declaro como vencedor 
absoluto en la batalla de Gettysburg Po] 
A, 
NA 


Lee se dio por vencido dos dias 


despues, 


el 4 de julio... 


Los confederados perdieron unos 4.000 


hombres, 


desaparecieron... 


18.000 fueron heridos y 
5.150 fueron hechos prisioneros o 


Los Unionistas perdieron 3.1553 


hombres, 


desaparecieron... 


14.529 fueron heridos y 
5.365 fueron hechos prisioneros o 


Cuando te sientas con fuerzas para volver a escribir la historia, intro- 
duce este listado y prepárate para hacer el papel de un brillante general: 


1 REM ea 06 MEME IMEI HIM 
2 REM + + 

3 REM * LA BATALLA DE GETTYSBURG + 

4 REM + * 

5 REM 410426 2616626 96 16-96 16 6-16 066662 0 M0 IA 

10 REM 

20 CO=0: REM MARCADOR DEL ORDENADOR 

30 HU=0: REM MARCADOR DEL JUGADOR 

40 DIM A(9),C(9),H(9) 

50 H$="Robert E. Lee" 

60 C$="George C. Meade” 

70 CLS:PRINT:PRINT 

80 PRINT "LA BATALLA DE GETTYSBURG" 
90 PRINT:PRINT 

100 PRINT "Estamos a 2 de julio de 18 
63, segundodia de la Batalla de Getty 
sburg..." 

110 PRINT:PRINT 

120 PRINT "Deseas estar al mando del 
Ejercito Confederado de Virginia de 
1 Norte como Robert E. Lee (1), o 


al del 

mac, como 
130 INPUT A 
140 IF AX1 OR A>2 THEN 130 

150 IF A=2 THEN D$=C$: C$=H$: H$=DS$ 

160 CLS:PRINT:PRINT 

170 PRINT "En esta representacion del 
segundo" 

180 PRINT "dia de lucha, eres "H$ 

190 IF LEFT$(H$,1)="R” THEN PRINT "al 
mando de los Confederados" ELSE PRIN 
T "al mando de los Unionistas" 

200 PRINT:PRINT 

210 PRINT "Lanzaremos dos dados para 
determinar" 

220 PRINT "el resultado de las pequen 
as batallas”; 

230 PRINT "parciales entabladas para 
apoderarse” 

240 PRINT "de los diferentes territor 
ios que componen la zona de Gettys 


Ejercito Unionista de Poto 
George C. Meade (2)?" 


O: 0: “O: 70 10” 00.0 20.0:0 0.00 007 -¿0O,- 10: :0v 10 
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O 


O 


burg" 

250 PRINT 
260 PRINT 
total de" 
270 PRINT 
superior" 
280 PRINT "a siete" 

290 PRINT "(un total de siete no es p 
osible...)" 

300 PRINT 

310 PRINT "Por favor, atento..." 

320 FOR T=1 TO 30:PRINT 

330 FOR X=1 TO 250: NEXT X 
340 NEXT T 

350 FOR J=1 TO 9 

360 GOSUB 380 

370 GOTO 490 

380 PRINT TAB(3);"> Batalla 


"Tienes que adivinar si el 


"los dados sera inferior o 


nJjno— o"; 


390 IF J=1 THEN PRINT "Little Round T 
op" 

400 IF J=2 THEN PRINT "Cemetry Ridge" 
410 IF J=3 THEN PRINT "Devil”s Den” 
420 IF J=4 THEN PRINT "The Wheatfield 
” 

430 IF J=5 THEN PRINT "The Peach Orch 
ard" 

440 IF J=6 THEN PRINT "Culp*s Hill" 
450 IF J=7 THEN PRINT "Ziegler*s Grov 
e" 

460 IF J=8 THEN PRINT "Seminary Ridge 
470 IF J=9 THEN PRINT "Gettysburg" 
480 RETURN 

490 PRINT 

500 PRINT "Ahora, General "3H$ 


510 PRINT "es cuando tienes que prede 
cir":PRINT "cuanto sera el total" 

520 PRINT TAB(9);5"A - Inferior a siet 
e" 

530 PRINT TAB(9);3"B - Superior a siet 
e" 

540 INPUT Z5$ 
550 IF Z$<>"A" 
560 PRINT:¿PRINT 
570 PRINT "Preparado para la lucha, m 
i General.":PRINT 

580 FOR T=1 TO 1000:NEXT T 

590 RESULTADO=INT (RND (1)*6+RND (1) +6+2 
) 
600 
610 


AND Z$<>"B" THEN 540 


PRINT RESULTADO; 

FOR T=1 TO 130:NEXT T 

620 IF RESULTADO=7 THEN 590 

630 IF RESULTADO>7 AND RND(1)>.45 THE 
N 590 

640 IF RND(1)>.2 THEN PRINT 
TO 590 

650 PRINT:PRINT:PRINT TAB(6)35"El tota 
1 ha sido"RESULTADO: PRINT 

660 IF Z$="A" AND RESULTADO<7 OR Z$=" 
B" AND RESULTADO>7 THEN 730 
670 PRINT:PRINT "Lo siento, 
l...” 

680 PRINT "pero la batalla de "; 
690 GOSUB 390 

700 PRINT "ha sido ganada por "3C$ 
710 CO=CO+1 

720 GOTO 790 

730 PRINT:PRINT "Bien hecho, 
al...” 


">> "3:G0 


mi Genera 


mi Gener 
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740 PRINT "Has vencido a "5C$ 
750 PRINT "en la batalla de "; 
760 GOSUB 390 

770 HU=HU+1 

780 A(J)=1 

790 IF J=9 THEN 840 


800 PRINT:PRINT 

810 IF CO>HU THEN PRINT C$;" lleva": 
RINT "una ligera ventaja...":PRINT "y 
la moral de sus tropas es":*PRINT "de 
un” INT (CO*10000/J)/100"%" 

820 IF HU>CO THEN PRINT H$;" va ganan 
do...":PRINT "La moral de tus tropas 
es":PRINT "de un" INT(HU*10000/J)/100" 
ye 

830 IF CO=HU THEN PRINT 

de ambos contendientes 

bradas..." 

840 H(J)=INT (HU*10000/J)/100 

850 C(J)=INT(CO*10000/J)/100 

860 FOR T=1 TO 1500:NEXT T 

870 FOR T=1 TO 30:PRINT 

880 FOR X=1 TO 70:NEXT X 

890 NEXT T 

900 NEXT J 

910 PRINT:PRINT 

do la accion:" 

920 FOR J=1 TO 9 

930 GOSUB 390 

940 IF A(J)=1 THEN PRINT H$; ELSE PRI 

NT CS; 

950 PRINT " fue el vencedor" 

960 PRINT "La moral de sus tropas era 
entonces de un"; 

970 IF A(J)=1 THEN PRINT H(J)3"%" ELS 

E PRINT C(J)3"%" 

980 PRINT "=== ===. ooo 


"Las fuerzas 
estan equili 


"Asi se ha desarrolla 


990 FOR T=1 TO 500: NEXT T 

1000 NEXT J 

1010 PRINT 

1020 IF HU>CO THEN PRINT "Como puedes 
ver, "3H$ 

1030 IF CO>HU THEN PRINT 
dos muestran que ";C$ 
1040 PRINT "gano la mayoria de las ba 


"los resulta 


tallas parciales." 

1050 FOR T=1 TO 500:NEXT T 

1060 PRINT " Por tanto, en el dia d 
e hoy, 2 de julio de 1863, declaro co 


mo vencedor absoluto en la batalla de 
Gettysburg a "53 

1070 IF HU>CO THEN PRINT H$ ELSE PRIN 
TC$ 

1080 PRINT "Lee se dio por vencido do 
s dias despues, el 4 de julio... 
1090 PRINT:PRINT 

1100 FOR T=1 TO 5O0:NEXT T 

1110 PRINT "Los confederados perdiero 
n unos 4.000hombres, 18.000 fueron he 
ridos y 5.150 fueron hechos prisi 
oneros o desaparecieron..." 

1120 FOR T=1 TO 5SO0:NEXT T 

1130 PRINT 

1140 PRINT "Los Unionistas perdieron 

3.155 hombres, 14.529 fueron he 
ridos y 5.365 fueron hechos prisi 
oneros o desaparecieron..." 


OO O OOOO OOOO O0OoOoA OO 
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Aquí, en medio del océano, lejos de cualquier costa conocida, se ha 
entablado una encarnizada batalla naval. Al mando de un convoy, custo- 
diado por un buque escolta, intentas volar un submarino enemigo que se 
encuentra en algún lugar bajo las aguas. Tu vida y la de tu tripulación 
depende de cuán buena sea tu puntería. 

Al inicio del programa se te pide que introduzcas el tamaño de la 
cuadrícula que constituirá el marco de tu búsqueda. Cuanto más grande 
sea ésta, más espacio tendrás para huir del submarino enemigo y, a la 
inversa, más fácil le será a éste escapar a tus ataques. En.la partida que 
aquí se ofrece de muestra, decidí jugar con una cuadrícula de cinco por 
cinco. 


INTRODUCE EL TAMANO DE LA CUADRICULA 
(DE 3AM 12) S 


AN 
Introduce el nivel de dificultad lu _) 


1 - Facil 
10 -— Muy dificil? 7 


El “nivel de dificultad” controla la precisión y frecuencia de los 
intentos del submarino por destruir tus naves. 
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Acto seguido se te pide que sitúes el convoy (la letra C) y el buque 
escolta (la letra E) en la cuadrícula, al tiempo que el ordenador sitúa el 
submarino. 


SITUA EL CONVOY 

(DOS NUMEROS MENORES QUE 4) 
2 2,2 

SITUA EL BUQUE ESCOLTA 

(DOS NUMEROS MENORES QUE 6) 
24,5 


Jo 


ESTOY SITUANDO EL SUBMARINO 


El ordenador imprime entonces un mapa de la situación: 


Averias del submarino: O 


PAN] >>Dia 1 << Quedan 20 disparos 
A >Convoy en 2 2 Averias: O 
>Escolta en 4 53 Averias: O 
UN pel 
Ñ | A 2: .E 
 ..... 
2 a 
Loa 


L 


CONVOY EN 2 2 
LO MUEVES? (S/N)? N 


Tanto el submarino como el convoy y el buque escolta están progra- 
mados para resistir a tres ataques antes de quedar totalmente destruidos. 
Tú cuentas sólo con 20 misiles antisubmarinos. En cada jugada puedes 
cambiar la posición del convoy, utilizar el sonar para localizar al submari- 
no y abrir fuego. Y, además, si lo encuentras conveniente, tienes la posibi- 
lidad de hacer lo mismo con el buque escolta: 


Averias del submarino: O 


'" >>Dia 1 << Quedan 20 disparos 
E >Convoy en 2 2 Averias: O 
l— >Escolta en 4 5 Averias:z O 


) 


3 
2 «Lone 
1 


CONVOY EN 2 2 
LO MUEVES? (S/N)? N 
QUIERES UTILIZAR EL SONAR DEL CONVOY” 


(S/N)? S 


LU 


LA LECTURA DEL SONAR ES 1.414 


Después de hacer tu jugada, el ordenador te responde moviendo el 
submarino y, posiblemente, disparando a tus naves: 


Averias del submarino: O 


>>Dia 1 << Quedan 20 disparos FRA] 
>Convoy en 2 2 Averias: O E 
>Escolta en 3 5 Averias: O Y) 
O A GAN 
Ae E 
AN A 
2 [Ls 
y 


El submarino se mueve... 
El submarino se ha detenido... 
y esta preparando su sonar... 
Estoy disparando al buque escolta... 
Torpedo en 3 1 
Torpedo en 3 2 
Torpedo en 3 3 
Torpedo en 3 4 
Torpedo en 3 3 
He dado al buque escolta en 3 


Job 


Averias del submarino: O 


>>Dia 3 << Quedan 20 disparos l | 
>Convoy en 2 2 Averias: O lo) 
>Escolta en 3 4 Averias: 1 


00 
0) 


sa Es 
«Cua. 


1) 
ls 
Nao 


CONVOY EN 2 2 
LO MUEVES? (S/N)? N 
QUIERES UTILIZAR EL SONAR DEL CONVOY”? 


ñ 


(S/N)? S 


25 


LA LECTURA DEL SONAR ES 1 


El buque escolta se encuentra ahora en un aprieto. Dos disparos más y 
se irá al fondo del mar (como lo demuestra el informe que aparece en la 
parte superior de la cuadrícula). No obstante, el submarino tampoco se 
encuentra en muy buena situación, ya que ha sido localizado. El programa 
continúa hasta que o bien el submarino queda totalmente destruido (que 
es lo que sucede en esta ejecución), o bien el ordenador ha logrado hundir 
tus dos naves: 


PAN] Averias del submarino: 2 
UN >>Dia 5 << Quedan 18 disparos 
==) Convoy destruido 

>Escolta en 3 3 Averias: 2 


1) 


1 


QUIERES DISPARAR? (S/N)? S 
EN QUE DIRECCION? (N, S, E, 0)? O 
La carga No. 3 alcanzo al submarino 


a 


>>Dia 5 << Quedan 17 disparos 
Po) Convoy destruido 

>Escolta en 3 3 Averias: 2 
LJ) 


ES A SS SS ES 
Bien hecho... has destruido el sub. EA 
Averias del convoy: 4 ¡A 
Averias del buque escolta: 2 
Has logrado sobrevivir 
durante 53 dias 


1) 


Observa que, hagas lo que hagas, nunca debes situar ninguna de tus 
naves directamente sobre el submarino. Si no te importa perder una, 
inténtalo y verás lo que pasa. Este es el listado que te permitirá tomar 
parte en este combate submarino: 


U 
l 1 REM 3630362416364 -24 36 36-26 1436264 durante"FECHA"dias" 
Oj; 2 REM + A] 270 PRINTO "ooo. 
3 REM LOBO DE MAR +. | 
O 1 4 REM + + 
1. 5 REM m64616261626 2616 16 16 6 34-46 46 de 
ma REA 300 PRINTO Mo 
O ! 20 GOSUB 2510:REM INICIALIZACION |. —---------- O 
1 30 GOSUB 2350: REM IMPRESION PRINT TAB(6);5"Se te han acabado 1 
' CUADRICULA . 
; 40 IF C1<>0O THEN GOSUB 410: REM ñ 
O ¡ MOVIMIENTO DEL CONVOY -—-—-—-—-—-—--- | é 
' 50 IF CC>2 AND EC>2 THEN 200 330 PRINT "Averias del submarino: "PU 
1 60 IF DISP<1 THEN 290 340 PRINT TAB(4)3"Averias del convoy: 
O | 70 1F PU>2 THEN 370 "CC 1 O 
; 80 GOSUB 2350 350 PRINT TAB(4);"Averias del buque e ' 
! 90 IF El<>0 THEN GOSUB 950: REM scolta: "EC ' 
O 1 MOVIMIENTO DE LA ESCOLTA 360 GOTO 250 ¡ o) 
!. 100 GOSUB 2350 370 PRINT "-==============o-- ' 
1 110 IF CC>2 AND EC>2 THEN 200. —-—-—-—-—-—-—-—--. |. —--———————- E ' O 
O n 120 IF DISP<1 THEN 290 380 PRINT "Bien hecho... has destruid I 
| 130 IF PU>2 THEN 370 o el sub.” ' 
l 140 GOSUB 1420: REM CONTROL SUB 390 GOTO 340 i 
O ] 150 FOR T=1 TO 1000:NEXT T 400 REM 4636362636436 36d 36 EI IEEE ] O 
¡ 160 FECHA=FECHA+1 410 REM MOVIMIENTO DEL CONVOY : 
! 170 GOTO 30 420 PRINT:PRINT "CONVOY EN"C15C2 l 
O | 180 END 430 X1=C1:X2=02 10 
¡ 190 REM 3636363616 46-46-36 36 464% 440 INPUT "LO MUEVES? (S/N)"5AS$s i 
: 200 REM FIN DE JUEGO 450 IF A$<>"S" AND A$<>"N" THEN 440 ! 
O | 210 PRINT "=== 460 IF A$="N" THEN 650 10 
Ra : 470 PRINT "N, S, E, 0"; l 
! 220 PRINT "El juego ha finalizado... 480 INPUT AS$ ' 
O ¡ pues has" 490 IF AS$<>"N" AND A$<>"S" AND ASX>"E 1 O 
. 230 PRINT "PERDIDO" " AND A$<>"0"” THEN 480 ¡ 
1 240 PRINT "el buque escolta y tu conv 500 IF A$="N" AND C1=Z THEN 480 I 
Ot oy" 510 IF A$="S" AND Ci=1 THEN 480 O) 
¡ 230 PRINT "=== === 520 IF A$="E" AND C2=Z THEN 480 
NA " 530 IF A$="0" AND C2=1 THEN 480 
O | 260 PRINT TAB(9);"Has logrado sobrevi 540 A(C1,C2)=BL ¡O 


oOoO0 O O OOOO OOO oso 


o. o 


oo Oo O 


O 


O 


550 IF 
560 IF 
570 IF 


As="N" 
As="S" 


THEN C1=C1+1 

THEN C1=C1-1 

AsS="E" THEN C2=C2+1 

580 IF A$="D" THEN C2=C2-1 

590 IF A(C1,C2)=ES THEN PRINT "Ahi es 

ta tu buque escolta!":C1=X1:C2=X2: GOT 

O 420 

600 IF A(C1,C2)=SU THEN PRINT "Te has 

puesto justo encima del sub!":FOR T= 

1 TO SO0:NEXT T:PRINT "Este dispara h 

acia arriba!":FOR T=1 TO 500: NEXT T:C 

=4: IR=1:C1=0:C2=0: RETURN 

610 PRINT "->> EL CONVOY ESTA AHORA E 

N"C15C2 

620 FOR T=1 TO 500:NEXT T 

630 A(C1,C2)=C0 

640 GOSUB 2350: REM IMPRESION 

CUADRICULA 

PRINT “QUIERES UTILIZAR EL SONAR 

CONVOY?":PRINT TAB(14)5 "(S/N)"; 

INPUT AS 

IF A$<>"S" AND AS<>"N" 

680 IF As$="N" THEN 730 

690 PRINT:PRINT "LA LECTURA DEL SONAR 

ES"; 

700 NAR=INT (1000*SQR ( (C1-S1)*(C1-S1)+ 

(C2-S2)* (C2-S2)))/1000 

710 PRINT NAR 

720 FOR T=1 TO 1000:NEXT T 

730 GOSUB 2350: REM IMPRESION 
CUADRICULA 

"QUIERES DISPARAR? (S 


650 
DEL 
660 


670 THEN 660 


740 PRINT:PRINT 
10) "5 

750 INPUT AS 
760 IF A$<>"S" AND AS<>"N" 
770 IF A$="N" THEN RETURN 
780 PRINT "EN QUE DIRECCION? (N, S, E 
, 0)" 

790 INPUT As 


THEN 750 


800 IF A$X<>"N" AND A$<>"S" AND A$<>"E 
" AND A$<>"0" THEN 790 

810 DISP=DISP-1 

820 IF A$<>"N" AND A$<>"S" THEN 860 


830 IF S2<>C2 THEN 850 

840 IF A$="S" AND S1<C1 OR A$="N" 
S1>C1 THEN 890 

850 PRINT TAB(S)5"Has fallado el disp 
aro":GOTO 910 

860 IF S1<>C1 THEN 850 

870 IF A$="0" AND S2<C2 OR A$="E" 
S2>C2 THEN 890 

880 GOTO 850 

890 PRINT "La carga No. "20-DISP"alcan 
zo al submarino" 

900 PU=PU+1 

910 FOR T=1 TO 500:NEXT T 

920 GOSUB 1490 

930 RETURN 

940 REM 96163626 26-26 06 6-16 HE M6 06M MMMM 
950 REM MOVIMIENTO DEL BUQUE ESCOLTA 
960 PRINT:PRINT "BUQUE ESCOLTA EN"E15 
E2 
970 


AND 


AND 


X1=E1:X2=E2 
980 INPUT "LO MUEVES? (S/N)"5As 

990 IF A$<>"S" AND A$<>"N" THEN 980 
1000 IF A$="N" THEN 1190 

1010 PRINT "N, S, E, 0";5 

1020 INPUT AS 
1030 IF AS$<>"N" 


AND A$<>"S" AND A$<>" 


92 


E" AND A$<>"0" 
1040 IF A$="N" 
1050 IF A$="S" 


THEN 1020 

AND El=Z THEN 1020 

AND El=1 THEN 1020 

1060 IF A$="E" AND E2=Z THEN 1020 

1070 IF A$="0" AND E2=1 THEN 1020 

1080 A(E1,E2)=BL 

1090 IF A$="N" THEN El=E1+1 

1100 IF A$="S" THEN El=E1-1 

1110 IF A$="E" THEN E2=E2+1 

1120 IF A$="0" THEN E2=E2-1 

1130 IF A(E1,E2)=CO THEN PRINT "Tu co 

nvoy esta en ese punto!":El=X1:E2=X2: 

GOTO 960 

1140 IF A(E1,E2)=SU THEN PRINT "Te ha 

s puesto justo encima del sub!":FOR T 

=1 TO 500:NEXT T:PRINT "Te va a hundi 

r": FOR T=1 TO 50O0:NEXT T:EC=4: IR=1:E1 

=0: £2=0: RETURN 

1150 PRINT "->> EL BUQUE ESCOLTA ESTA 

":PRINT "AHORA EN"E15E2 

1160 FOR T=1 TO 500:NEXT T 

1170 A(E1,E2)=ES 

1180 GOSUB 2350: REM IMPRESION DE 

CUADRICULA 

1190 PRINT "QUIERES USAR EL SONAR DE 

LA ESCOLTA?":PRINT TAB(14)5"(S/N)"5 

1200 INPUT A$ 

1210 IF A$<>"S" AND AS$<>"N" 

1220 IF A$="N" THEN 1270 

1230 PRINT:PRINT "LA LECTURA DEL SONA 

R ES"; 

1240 NAR=INT (1000+*SO0R ( (E1-S1)+*(E1-S1) 

+ (E2-S52) * (E2-S2)))/1000 

1250 PRINT NAR 

1260 FOR T=1 TO 1000:NEXT T 

1270 GOSUB 2350: REM IMPRESION DE 
CUADRICULA 

"QUIERES DISPARAR? ( 


THEN 1200 


1280 PRINT:PRINT 
S/N"; 

1290 INPUT As 
1300 IF A$<>"S" AND A$<>"N" 
1310 IF A$="N" THEN RETURN 
1320 PRINT "EN QUE DIRECCION? (N, S, 
E, 0)"; 

1330 INPUT As 


THEN 1290 


1340 IF A$<>"N" AND A$<>"S" AND A$<>" 
E" AND A$<>"0" THEN 1330 

1350 DISP=DISP-1 

1360 IF AS$<>"N" AND A$<>"S" THEN 1400 


1370 IF S2<>E2 THEN 1390 

1380 IF A$="S" AND S1i<E1 OR A$="N" AN 

D S1>E1 THEN 1430 

1390 PRINT TAB(S5);"Has fallado el dis 

paro":GOTO 1450 

1400 IF S1<>E1 THEN 1390 

1410 IF A$="0"'AND S2<E2 OR A$="E" AN 

D S2>E2 THEN 1430 

1420 GOTO 1390 

1430 PRINT "La carga No. "20-DISP"alca 

nzo al submarino” 

1440 PU=PU+1 

1450 FOR T=1 TO 500:NEXT T 

1460 GOSUB 1490 

1470 RETURN 

1480 REM 4366-20-16 1696 EMI III IEA MIE 

1490 REM MOVIMIENTO DEL SUBMARINO 
DESPUES DE QUE LE ALCANCE 

UN DISPARO 


1500 Y1=S1:Y2=S2 


O 


OoO0O0O OO OOO OO OOOO OOO O 


O. 00" 0 


o. oO 


O 


OO O OOOO O O0oosoo0o.o..0 


O ooo o. Oo 


O 


1510 
1520 
) 

1530 
) 

1540 IF 
1550 IF 
1560 IF 


A(S1,S2)=BL 
S1=S1+INT (RND (1)+*2)-—INT(RND (1) +2 


S2=S2+INT(RND(1)+*2)-—INT(RND(1)*2 


S1<1 THEN Si=1 

S1>Z THEN S1=Z 

S2<1 THEN S2=1 

1570 IF S2>Z THEN S2=Z 

1580 IF A(S1,S2)=ES OR A(S1,S2)=C0 TH 

EN S1=Y1:S2=Y2 

1590 A(S1,S2)=SU 

16400 RETURN 

1610 REM 416 26-46 36 1636 26-366 M II AHI Md 

1620 REM CONTROL DEL SUBMARINO 

15630 PRINT TAB(6)5"El submarino se mu 

eve..." 

1640 X1=S1: X2=S2 

1650 A(S1,S2)=BL 

1660 REM +%** COGE EL CONVOY 3% 
** O LA ESCOLTA —*+* 

1670 R=INT(RND(1)+*2)+1 

1680 IF R=1 THEN K1=C1:2K2=C2 

1590 IF R=2 THEN K1=E1: K2=E2 

1700 FAS=0 

1710 IF RND(1)>DF THEN 2250 

1720 IF FAS=1 THEN RETURN 

1730 IF RND(1)>.5 THEN 1770 

1740 IF Si<K1 THEN Si=S1+1: IF 

EN S1=Z:GOTO 1790 

1750 IF S2<K2 THEN S2=S2+1: IF 

EN S2=Z:GOTO 1790 

1760 GOTO 1790 

1770 IF Si>kK1 THEN S1=S1-1: 1F 

EN S1=1:GOTO 1790 

1780 IF S2>K2 THEN S2=S2-1: IF 

EN S2=1 

1790 IF A(S1,S2)<>BL THEN S1=X1:S2=X2 

¿GOTO 1650 

1800 A(S1,S2)=SU 

1810 PRINT TAB(6);5"El submarino se ha 

detenido..." 

1820 PRINT TAB(7);"y esta preparando 

su sonar..." 

1830 REM 


S1>Z TH 


S2>Z TH 


S1<1 TH 


S2<1 TH 


HAY UN 20% DE 
POSIBILIDADES DE QUE EL 
SUBMARINO NO ABRA FUEGO 
1840 IF RND(1)>.8 THEN RETURN 
1850 IF S1<>E1 THEN 2050 
1860 IF S2<E2 THEN 1960 
1870 IF S2>E2 THEN PRINT "Estoy dispa 
rando al buque escolta..." 

1880 FOR E=S2 TO E2 STEP -1 

1890 IF E<>S2 THEN PRINT TAB(E)5"Torp 

edo en"S1;E 

1900 FOR T=1 TO 100:NEXT T 

1910 NEXT E 

1920 IF RND(1)>.9 THEN PRINT "El torp 

edo no ha servido de nada": RETURN 
1930 PRINT "He dado al buque escolta 

en"E1jE2:EC=EC+1: IF EC>2 THEN IR=IR+. 

5 

1940 IF EC>2 THEN A(E1,E2)=BL:E£1=0:E2 
=0: RETURN 

1950 RETURN 

1960 PRINT "Estoy disparando al buque 
escolta..." 

1970 FOR E=S2 TO E2 

1980 PRINT TAB(E)3"Torpedo en"S1;5E 


1990 FOR T=1 TO 100:NEXT T 

2000 NEXT E 

2010 IF RND(1)>.9 THEN PRINT TAB(4)3" 
El torpedo ha fallado...":RETURN 
2020 PRINT "He dado al buque escolta 
en"E153E2:EC=EC+1:1F EC>2 THEN IR=IR+. 
5 

2030 IF EC>2 THEN A(E1,E2)=BL:E1=0:E2 
=0: RETURN 

2040 RETURN 

2050 IF S1<>C1 THEN RETURN 

2060 IF S2<C2 THEN 2160 

2070 IF S2>C2 THEN PRINT "Estoy dispa 
rando al convoy..." 

2080 FOR E=S2 TO C2 STEP -1 

2090 IF E<>S52 THEN PRINT TAB(E);5"Torp 
edo en"SijE 

2100 FOR T=1 TO 100:NEXT T 

2110 NEXT E 

2120 IF RND(1)>.7 THEN PRINT TAB(4);5" 
El torpedo ha fallado..."”":RETURN 

2130 PRINT "He dado al convoy en"C1;C 
2:CC=CC+1: 1F CC>2 THEN IR=IR+.5 

2140 IF CC>2 THEN A(C1,C2)=BL:C1=0:C2 
=0: RETURN 

2150 RETURN 

2160 PRINT "Estoy disparando al convo 


Yen.” 

2170 FOR E=S2 TO C2 

2180 PRINT TAB(E)3"Torpedo en "S1;E 
2190 FOR T=1 TO 100:NEXT T 

2200 NEXT E 

2210 IF RND(1)>.7 THEN PRINT TAB(4)5" 
El torpedo ha fallado...":RETURN 


2220 PRINT "He dado al convoy en"C1;C 
2:CC=CC+1: 1F CC>2 THEN IR=IR+.5 

2230 IF CC>2 THEN A(C1,C2)=BL:C1=0: C2 
=0:1 RETURN 


2240 RETURN 

2250 PRINT "El submarimo acciona su m 
isil de largo alcance!" 

2260 GOSUB 2310 

2270 IF R=2 AND ECX<3 THEN FAS=1:GOTO 
2020 

2280 IF R=2 THEN 2300 

2290 IF CC<3 THEN FAS=1:GOTO 2220 
2300 PRINT TAB(12);"Ha fallado..." 
2310 FOR T=1 TO 500: NEXT T 

2320 FAS=1 

2330 RETURN 

2340 REM ese 04 616 26 616 6 M6 6H EHHH HA 
2350 REM IMPRESION DE LA CUADRICULA 
2360 CLS:PRINT 

2370 PRINT TAB(5);"Averias del submar 
ino: "PU 

2380 PRINT ">>Dia"FECHA"<X<"3 


2390 PRINT TAB(18)5 "Quedan"DISP"dispa 
ros" 

2400 IF C1>0 THEN PRINT ">Convoy 
Cc1;C2;" Averias: "CC ELSE PRINT 
voy destruido" 

2410 IF E1>0 THEN PRINT ">Escolta en” 
El3E23" Averias: "EC ELSE PRINT "Buq 
ue escolta hundido!" 

2420 PRINT  "---=-=--==-============- 
a "¿PRINT 

2430 FOR C=Z TO 1 STEP -1 
2440 IF C<10 THEN PRINT " 
INT C; 


en" 
"Con 


"C; ELSE PR 


O 


O. 0,0.0 0 -0.0:.00 00-00 0 0.0. 0-0" 10. 50 


oo o. O 


(o 
7) 


2450 FOR D=1 TO Z 

2460 IF A(C,D)<>SU THEN PRINT CHR$(A( 

C,D))5ELSE PRINT "."3 

2470 NEXT D 

2480 PRINT 

2490 NEXT C 

2500 RETURN 

2510 REM INICIALIZACION 

2520 CLS 

2530 PRINT:PRINT 

2540 PRINT "INTRODUCE EL TAMANO DE LA 
CUADRICULA":PRINT TAB(14)53"(DE 3 A 1 
2"; 

2550 INPUT Z 

2560 IF 2<3 OR Z>12 THEN 2550 

2570 PRINT:PRINT "Intoduce el nivel d 
e dificultad":PRINT TAB(8)5"1 -— Faci 
1" 

2580 PRINT TAB(8)5"10 — Muy dificil"; 
2590 INPUT DF: IF DF<1i OR DF>10 THEN 2 
590 
2600 
2610 


DF=(11-DF)/10 
CLS:PRINT:PRINT 
2620 DIM A(Z,Z) 

2630 BL=ASC("."):REM 
2640 ES=ASC("E"): REM 
2650 CO=ASC("C"):2: REM 
2660 SU=ASC("S"):REM SUBMARINO 
2670 EC=0:REM ESTADO DE LA ESCOLTA 
2680 CC=0: REM ESTADO DEL CONVOY 
2690 PU=0:REM ESTADO DEL SUBMARINO 
2700 FECHA=1 

2710 PRINT "SITUA EL 


ESPACIO 
BUQUE ESCOLTA 
CONVOY 


CONVOY" 


2720 PRINT "(DOS NUMEROS MENORES QUE" 
Z+1")" 

2730 INPUT C1,C2 

2740 IF C1>Z OR C2>Z OR C1<1 OR C2<1 


THEN PRINT "VUELVE A EMPEZAR": PRINT:G 
OTO 2710 

2750 A(C1,C2)=C0 

2760 PRINT "SITUA EL BUQUE ESCOLTA" 
2770 PRINT "(DOS NUMEROS MENORES QUE" 
z7+1")" 


2780 INPUT E1,E2 

2790 IF El1>Z OR E2>Z OR E1<1 OR E2<1 
THEN PRINT "VUELVE A EMPEZAR": PRINT:G 
OTO 2780 

2800 IF A(E1,E2)=CO THEN PRINT "EL CO 
NVOY ESTA EN ESA POSICION":GOTO 2780 
2810 A(E1,E2)=ES 
2820 PRINT:PRINT 
UBMARINO" 

2830 FOR T=1 TO 1000:NEXT T 
2840 S1=INT(RND(1)+Z)+1 

2850 S2=INT(RND(1)*Z)+1 

2860 IF A(S1,S2)<>0 THEN 2840 
2870 A(S1,S2)=SU 

2880 FOR C=1 TO Z 

2890 FOR D=1 TO Z 

2900 IF A(C,D)=0 THEN A(C,D)=BL 
2910 NEXT D 

2920 NEXT C 

2930 IR=0 

2940 DISP=20 

2950 RETURN 


"ESTOY SITUANDO EL S 


oOo0O0 O OOOO Oo O0Oos<o.<a0 


Parte IV 
Juegos de dados 


KLONDIKE BILL CONTRA 
EL ORDENADOR 


BUNCO 

AGENTE SECRETO 
CARRERA DE DADOS 
MEDIA TONELADA 


Klondike 
Bill contra 
el ordenador 


Klondike Bill era un famoso jugador de aquellos tiempos en que había 
muchos barcos de vapor surcando las aguas del Mississippi (bueno, en 
realidad nunca existió; me lo acabo de inventar, pero suena bastante 
verídico). 

En este juego, tú eres Klondike Bill y has de echar unas cuantas manos 
de póquer contra el ordenador dejándonos a todos boquiabiertos con tu 
habilidad para los dados. Tú y el ordenador empezáis la partida, con cien 
fichas cada uno: 


Espera, Klondike Bill... "TU 
estoy moviendo los dados... A 
CAS) 

Tengo 100 H+fichas E 
Y tu tienes 100 Y 


En primer lugar, tras agitar los dados, aparece en la pantalla tu jugada 
y acto seguido el ordenador te muestra sus dos primeros dados. Basándote 
en tus cálculos sobre cómo será el resto de la mano del ordenador y en tu 
propia mano, has de hacer una apuesta: 


99 


100 


Tu mano ess; 
--> cuatro uno cinco cuatro cinco 


ha 


)* DOS PAREJAS *( 


Estoy echando mis dados... 
Estos son los dos primeros: 


L 


=-> dos tres 


Cuanto quieres apostar” 30 


1) 


VALE, HAS APOSTADO 30 FICHAS... 


Esta es mi: mano: 
dos tres seis cuatro tres 


L] 


$> UNA PAREJA <+$ 


.«.- y has ganado esta ronda! 


) 


>-> Tus fichas: 130 
LAS MIAS: 70 


El juego continúa del mismo modo hasta que a uno de los dos 
jugadores le queden menos de nueve fichas 


Pulsa la barra espaciadora... 


a 
¡Y 


Espera, Klondike Bill... 
estoy moviendo los dados... 


a 


Tengo 45 fichas 
Y tu tienes 105 


Tu mano es: 
=> dos tres tres tres seis 


L 


** TRIO ** 


Estoy echando mis dados... 
Estos son los dos primeros: 


L) 
E 


=-> cinco uno 
Cuanto quieres apostar”? 45 


VALE, HAS APOSTADO 45 FICHAS... 


Esta es mi mano: 
cinco uno uno uno uno 


<< POKER >> 
He ganado esta ronda 


>-> Tus fichas: 60 
LAS MIAS: 90 


Pulsa la barra espaciadora... 


Tengo 82 fichas 
Y tu tienes 48 


Tu mano es: 


-->» uno cuatro cinco tres cuatro 


$> UNA PAREJA <*$ 


Estoy echando mis dados... 
Estos son los dos primeros: 


-=-> cinco seis 
Cuanto quieres apostar”? 8 


VALE, HAS APOSTADO 8 FICHAS... 


Esta es mi mano: 
cinco seis seis tres cuatro 


$> UNA PAREJA <* 


Esta ronda ha quedado empatada 


— 
Oo 
pa 


Los dos hemos de entregar a la banca 
8 fichas 


a 


>> Tus fichas: 40 
LAS MIAS: 74 


Pulsa la barra espaciadora... 


1) 


Tengo 74 fichas 
Y tu tienes 40 


1] 


Tu mano ess: 
=-> cinco cinco seis uno uno 


)* DOS PAREJAS +*( 


) 


Estoy echando mis dados... 
Estos son los dos primeros: 


--> dos uno 


1) 


Cuanto quieres apostar”? 30 


VALE, HAS APOSTADO 30 FICHAS... 


A 


Esta es mi mano: 


dos uno tres cinco cuatro 


1 [ 


NADA... 


.«.-.Y has ganado esta ronda! 


a 


>-> Tus fichas: 70 
LAS MIAS: 44 


Pulsa la barra espaciadora... 


1) 


Tengo 21 fichas 
Y tu tienes 73 


1) 


Tu mano es: 


102 


=-> seis dos uno dos dos 


8 


** TRIO  *x* 


Estoy echando mis dados... 
Estos son los dos primeros: 


=—-> tres seis 


JO 


Cuanto quieres apostar? 21 


L 


VALE, HAS APOSTADO 21 FICHAS... 


Esta es mi mano: 
tres seis cuatro tres cinco 


1 


$> UNA PAREJA <+ 


«+ «Y has ganado esta ronda! 


1 


>> Tus fichas: 94 
LAS MIAS: O 


[] 


Me has ganado, Klondike Bill. 
La proxima vez veras lo que es bueno! 


[) 


Cuando te hayas quedado sin una perra en el bolsillo, puedes decirle al 
ordenador que te eche la revancha, claro está, siempre que tus nervios te 
lo permitan. 

Aquí tiene usted el listado, señor Klondike Bill: 


dos...” 


60 PRINT "Tengo"CC"fichas" 
160 GOSUB 1240 


70 PRINT "Y tu tienes"HC 


' 

O | 1 REM 1636214 46-16-16 36-16-16 364-2626 64H M6 HE 80 MANO=0 | 0) 
1 2 REM + * 90 PRINT:PRINT "Tu mano es: " ; 
|. 3 REM * KLONDIKE BILL CONTRA + 100 GOSUB 630:REM LANZA LOS DADOS ] 

O ¡ 4 REM + EL ORDENADOR + DEL JUGADOR y O 
Lo 5 REM + * 110 GOSUB 810:REM EVALUA LA MANO ' 
| 6 REM 3636462626 -16-26-46 16 26 36-36-16 26-36 26 36 36 16-36-36 66 6 DEL ORDENADOR : 

0) l 10 REM 120 GOSUB 1240 : O 
1. 20 GOSUB 1110:2REM INICIALIZACION 130 GOSUB 1000:REM ANUNCIA LA MANO I 
¡ 30 CLS DEL JUGADOR ' 
40 GOSUB 1180 140 HS=PUN:REM MARCADOR DEL JUGADOR ' 

O 1 50 CLS:PRINT 150 PRINT:PRINT "Estoy echando mis da h O 
! ' 


> 


103 


oO0DO0O OOOO JO0OoOoosom0 


O 


O 


i 
l 
1 
1 
1 
1 
1 
1 
1 
1 
' 
1 
1 
t 
1 
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1 
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1 
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1 
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1 
1 
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1 
1 
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1 
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' 
' 
' 
' 
' 
1 
' 
1 
' 
' 
' 
' 
L 
1 
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1 
' 
' 
' 
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1 
1 
1 
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1 
1 
1 
1 
1 
1 
I 
1 
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| 
' 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
' 
1 
1 
i 
1 
1 
' 
' 
1 
1 
1 


170 PRINT "Estos son los dos primeros 

2":PRINT 

180 MANO=1 

190 GOSUB £30:REM LANZA LOS DADOS 
DEL ORDENADOR 


200 GOSUB 810:REM EVALUA LA MANO 
DEL ORDENADOR 
210 GOSUB 1240 
220 PRINT: INPUT “Cuanto quieres apost 


ar"5APU 

230 IF APUX<1 OR APU>HC THEN 220 

240 PRINT:PRINT "VALE, HAS APOSTADO"A 
PU"FICHAS..." 

250 GOSUB 1240 

260 PRINT:PRINT:PRINT 
o:" 

270 FOR J=1 TO 5 

280 ON A(J) GOSUB 740,750,760,770,780 
,790 
290 

300 

310 

320 

330 


"Esta es mi man 


FOR Z=1 TO 5SO0O0:NEXT Z 

NEXT J 

GOSUB 1240 

PRINT 

GOSUB 1000:REM ANUNCIA LA MANO 
DEL JUGADOR 

CS=PUN: REM MARCADOR DEL ORDENADOR 

IF HS=CS THEN 430 

IF HS>CS THEN 490 

REM 463646 36 36 16 46 dE 6 dE dE dE dE A dE 6 E 

380 REM GANA EL ORDENADOR 

390 PRINT:PRINT TAB(6)3"He ganado est 

a ronda" 

400 HC=HC-APU: CC=CC+APU 

410 GOTO 520 

420 REM 3463636462044 

430 REM UN EMPATE 

440 PRINT:PRINT "Esta ronda ha quedad 

o empatada” 

450 PRINT "Los dos hemos de entregar 

a la banca"APU"fichas" 

460 CC=CC-APU: HC=HC-APU 

470 GOTO 520 

480 REM 33636 26 46 36 36 26 26 26-16 dE 36 IE 

490 REM GANA EL JUGADOR 

500 PRINT:PRINT TAB(6)3"...y has gana 

do esta ronda!" 

510 HC=HC+APU: CC=CC-APU 

520 PRINT:PRINT ">-> Tus fichas: " STR 

$ (HC), "LAS MIAS: "CC 

530 IF HC<9 OR CC<9 THEN 570 

GOSUB 1240 

GOSUB 1180 

GOTO 50 

PR INT 


340 
350 
360 
370 


IF HC=CC THEN PRINT "No podemos s 
eguir jugando ninguno de los dos... n 
o no quedan tfichas!" 

590 IF HC>CC THEN PRINT "Me has ganad 
O, Klondike Bill.":PRINT "La proxima 
vez veras lo que es bueno!" 

600 IF CC>HC THEN PRINT "He vuelto a 
demostrarte que soy el mejor jugado 
r, Klondike Bill!" 

610 END 

620 REM 343636263 H6 IE E IED DIE HE E IE LE II IE IE DEI E 
630 REM LANZA LOS DADOS DEL JUGADOR 
640 PRINT " --> "; 

650 FOR J=1 TO 5 


660 A(J)=INT(RND(1)*6)+1 

670 FOR Z=1 TO 500: NEXT Z 

£80 IF MANO=1 AND J>2 THEN 700 

690 ON A(J) GOSUB 740,750,760,770,780 
,790 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 


NEXT J 

PRINT 

RETURN 

NN is 

PRINT "uno "5:RETURN 

PRINT "dos "5:RETURN 

PRINT "tres "5: RETURN 

PRINT "cuatro "5:RETURN 

PRINT "cinco "3: RETURN 

PRINT "seis "3: RETURN 

E oi 
REM EVALUA LA MANO DEL ORDENADOR 
PUN=0 
ii 

REM ** REPOKER 3. 

850 REM 3463626 dé 16 26-36-36 833 dE 

860 IF A(1)=A(2) AND A(2)=A(3) AND A( 
3)=A(4) AND A(4)=A(5) THEN PUN=15:RET 
URN 
870 
880 IF 
890 IF 
900 IF 
910 IF 
920 IF 
930 IF 
940 IF 
950 IF 


REM +** LAS OTRAS POSIBILIDADES ++* 
A(1)=A(2) THEN PUN=PUN+1 
A(1)=A(3) THEN PUN=PUN+1 
A(1)=A(4) THEN PUN=PUN+1 
A(1)=A(5) THEN PUN=PUN+1 
A(2)=A(3) THEN PUN=PUN+1 
A(2)=A(4) THEN PUN=PUN+1 
A(2)=A(5) THEN PUN=PUN+1 
A(3)=A(4) THEN PUN=PUN+1 
960 IF A(3)=A(5) THEN PUN=PUN+1 
970 IF A(4)=A(5) THEN PUN=PUN+1 
980 RETURN 
990 REM eses 06 0 E EA 
1000 REM ANUNCIA LA MANO DEL JUGADOR 
1010 PRINT:PRINT " 8] 
1020 IF PUN=15 THEN PRINT 
<<n 
1030 IF 


">> REPOKER 


PUN=6 THEN PRINT "<X POKER >> 
PUN=4 
PUN=3 
PUN=2 


THEN PRINT "22 FULL ::" 
THENPRINT "%*%* TRIO  **"” 
THEN PRINT ")%* DOS PARE 


1040 IF 
1050 IF 
1060 IF 
JAS *(" 
THEN PRINT 


PUN=1 "$> UNA PARE 


PUN=0 THEN PRINT "NADA..." 
REM 44026 616 3616 26 0H 3626 0H 

REM INICIALIZACION 

HC=100: REM FICHAS DEL JUGADOR 
CC=100:REM FICHAS DEL ORDENADOR 
DIM A(5) 

RETURN 

REM 4001002402 

REM RETARDO 

IF INKEY$<>"" THEN 1180 
PRINT:PRINT "Pulsa la barra espa 
ciadora..." 

1200 IF INKEYS$="" THEN 1200 

1210 CLS:PRINT:PRINT:PRINT 

1220 PRINT "Espera, Klondike Bill...” 
1230 PRINT " estoy moviendo los d 
ados..." 

1240 FOR T=1 TO 1000:NEXT T 

1250 RETURN 


O 


O 


O 


O. 00 20 1001 0. 0 (00 0: 0 


O 


Aquí tenemos un juego de dados en el que pueden jugar hasta cinco 
jugadores, además del ordenador. Es muy fácil de aprender, ya que el 
ordenador se encarga de casi todo. La ejecución que aquí se incluye te 
mostrará lo sencillo que es. 

En primer lugar, el ordenador pregunta cuántas personas van a partici- 
par y pide sus nombres: 


CUANTOS JUGADORES HAY? (DE 1 A 5)? 1 


AHORA SE HAN DE INTRODUCIR LOS NOMBRES E 
DE LOS JUGADORES lu) 
2 MANOLO 


Después se escoge el “punto bunco”: 


EN PRIMER LUGAR, NECESITAMOS EL PUNTO 
BUNCO 


PULSA CUALQUIER TECLA PARA SABER CUAL 
ES EL BUNCO 


105 


106 


[|] 350405203 
345231454205 
La 2361.11 5.6 
234665524 ._3._4m6 
1 
E 00 0 E E 
Moss 53 SA AD AAA 
5 4 1 
"> 
7 5 AAA AA 
_) 26 35165315-_235 
2 
46 4.5244mu41 
Er ES 
¡A 
E E A E A A 


EL PUNTO BUNCO ES 6 


[) 


Tras esto, los jugadores van tirando por turno los tres dados, marcán- 
dose un punto cada vez que aparece un “punto bunco”. La única baza que 
cuenta es la última de cada juego: 


A E E A E E A A 


L) 


EL PUNTO BUNCO ES 64 


LA PUNTUACION DE ORDENADOR ES 0 


» 


> AHORA ME TOCA A MI < 


ALLA VOY... 


Ñ 
y 


ELLA A AAA III III III 001 


304 1 
E o 3 5 

6.3.3 <<< 
¡a 3.3.6 <tt-- 

4 6 2 << 


3 3 6  <tt-- 
4 6 2 <ét--- 
45.6 tt 
A 
13.3 
13 1 


a A A o O O O O O 5 O O A A e O O A A A A A A e 


MIS DADOS HAN CAIDO EN 1 3 1 


LOS PUNTOS DE ORDENADOR SON O 


A A A CR O EC A O A 


EL PUNTO BUNCO ES 6 


LA PUNTUACION DE MANOLO ES O 


-> AHORA LE TOCA TIRAR A MANOLO <- 


PULSA UNA TECLA PARA LANZAR LOS DADOS 


<= 


Na qua O ur” ad0i>NaN- 
NO-Nor-nNdA-AN ANNO A 
"”NdWA-NNWrO0o A mn 0 == yo 0 

A 

A 

AN 

] 

| 

/ 


LOS DADOS DE MANOLO 
HAN CAIDO EN 1 2 1 


L) 


LOS PUNTOS DE MANOLO SON O 


Pero los jugadores humanos son muy ingenuos al pensar que pueden 
vencer así como así a una máquina tan poderosa, como queda totalmente 
demostrado en esta partida, en la que el ordenador consigue un total de 
cinco puntos antes que los otros jugadores: 


L 
¡ME 


COCNAC-OCOAdMAaaO0pa 
0 UN » Y 0 0000 y 
A 
A 
A 
! 

1 
] 


ñ 
E) 
Na 0 AO 00 


O 


€ 1 O 5 5 O O O 5 O O A O 


MIS DADOS HAN CAIDO EN 2 6 5 


0 


LOS PUNTOS DE ORDENADOR SON 5 


A E E E E E E E 


$ 


EL GANADOR ES ORDENADOR 


LOS OTROS... 


1] 


MANOLO -— 3 
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REM 36363633636 3636 3 
REM + * 
REM * BUNCO 
REM + 
REM 4404440163646 30d 

10 REM 

20 GOSUB 900: REM INICIALIZACION 

30 CLS:PRINT:PRINT 

40 PRINT "EN PRIMER LUGAR, NECESITAMO 

S EL PUNTOBUNCO" 

50 IF INKEY$<>"" THEN 50 

£0 PRINT:PRINT 

70 PRINT "PULSA CUALQUIER TECLA PARA 

SABER CUALES EL BUNCO" 

80 IF INKEYS$="" THEN 80 

90 PRINT 

100 FOR T=1 TO 100 

110 D=INT(RND(1)*6)+1 

120 IF RND(1)>.9 THEN PRINT 

130 PRINT D; 

140 NEXT T 

150 GOSUB 1040 

160 CLS:PRINT:PRINT 

170 FOR J=1 TO A+1 

180 PRINT:PRINT "- * -* - 1. - 1. - o. 

— e A A —  PRINT 

190 PRINT "EL PUNTO BUNCO ES"D:PRINT: 

PRINT 

200 PRINT:PRINT “LA PUNTUACION DE "Q$ 

(1)3" ES "Z(J) 

210 IF J>1 THEN 320 

220 PRINT:PRINT TAB(7)5"> AHORA ME TO 

CA AMI <" 

230 GOSUB 1040:PRINT 

240 PRINT "ALLA VOY...":GOSUB 1040 

250 PRINT:PRINT "////////1//4111111111 

72222 RR RARA AR ARAS 

260 GOSUB 790 

270 PRINT:PRINT “MIS DADOS HAN CAIDO 

EN"D13D23D3 

280 GOSUB 1040 

270 GOSUB 700 

300 GOSUB. 1040 

310 GOTO 420 

320 PRINT:PRINT " -> AHORA LE TOCA TI 

RAR A "¡Qs (J)3" <-" 

330 PRINTIPRINT "PULSA UNA TECLA PARA 
LANZAR LOS DADOS" 

340 IF INKEYS="" THEN 340 

350 CLS 

360 GOSUB 790 

370 GOSUB 1040 

380 PRINT "LOS DADOS DE "Q$(J):PRINT 

"HAN CAIDO EN "D13D23D3 

390 GOSUB 1040 

400 GOSUB 700 

410 GOSUB 1040 

420 1F Z(J)>4 THEN E=J:GOTO 510 

430 NEXT J 

440 FL=0 

450 FOR E=1 TO A+1 

460 1F Z>4 THEN FL=E 

470 NEXT E 

480 IF FL=0 THEN 160 

490 E=FL 


+ 
+* 


Con este listado ya puedes empezar a tirar los dados: 


500 REM 333636463616 366242664 

510 REM FIN DEL JUEGO 

520 PRINT:PRINT "-  — % -— % — % — % 

— A E "2 PRINT 

530 PRINT "EL GANADOR ES "30$(E) 

540 PRINT . 

550 PRINT "LOS OTROS... ":*GOSUB 1040 

560 PRINT 

570 FOR J=1 TO A+1 

580 IF J=E THEN 610 

590 PRINT Q$(J13" - "3Z(J) 

600 PRINT 

610 NEXT J 

620 END 

630 PRINT:PRINT 

640 PRINT "Y "308(J)3" GANA" 

650 PRINT TAB(6)3"CON BUNCO!" 

660 GOSUB 1040 

670 E=J 

680 GOTO 540 

690 REM 33361636 16 36 36 96-36 46-36-3606 IMM I6 HE 

700 REM VALORACION DE LOS DADOS 

710 IF D=D1 AND Di=D2 AND D2=D3 THEN 

PRINT "BUNC!!'"2GOTO 630 

720 IF Di=D THEN Z(J)=Z(J)+1 

730 IF D2=D THEN Z(J)=Z (J)+1 

740 IF D3=D THEN Z(J)=Z (J)+1 

750 PRINT:PRINT "LOS PUNTOS DE "Q$(J) 

3" SON"Z(J):GOSUB 1040 

760 IF (Di=D OR D2=D OR D3=D) AND Z(J 

)<5 THEN J=J-1 

770 RETURN 

780 REM 

790 REM LOS DADOS 
FOR S=1 TO 20 
Di=INT(RND(1)+*6)+1:PRINT Diz 
D2=INT(RND(1)*6)+1:PRINT D2;3 
D3=INT(RND(1)+*6)+1:PRINT D3; 
IF Di=D OR D2=D OR D3=D THEN PRIN 
<<to——"3 


E iii 

REM INICIALIZACION 

cLs 

PRINT:PRINT 

INPUT "CUANTOS JUGADORES HAY? (DE 


940 IF AX1 OR A>5 THEN 930 

950 DIM Z(A+1),0$(A+1) 

960 CLS:PRINT:PRINT 

970 PRINT "AHORA SE HAN DE INTRODUCIR 
LoS NOMBRES DE LOS JUGADORES" 
980 Q$(1)="ORDENADOR" 

990 FOR B=2 TO A+1 

1000 INPUT Q$(B) 

1010 NEXT B 

1020 RETURN 

1030 REM 346263616 

1040 REM RETARDO 

1050 FOR P=1 TO 1000:NEXT P 

1060 RETURN 


O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
e) 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
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11 


Agente 
secreto 


Cuatro agentes secretos, procedentes de cuatro importantes ciudades, 
se encuentran de camino para reunirse con los jefes de sus respectivos 
gobiernos en una quinta ciudad. Todos ellos llevan los mismos documen- 
tos secretos, los cuales contienen toda la informacion necesaria para vencer 
a los otros gobiernos. Por tanto, sólo podrá usar esa información de 
modo efectivo el jefe de gobierno que la consiga en primer lugar. 

El ordenador hace el papel de uno de los agentes y tres jugadores los 
de los tres restantes. Este juego es muy fácil. Al empezar a jugar el 
ordenador te dirá cuáles son las ciudades (éstas cambian de una ejecución 
a otra): 


Estas son las ciudades: P) 


ALGECIRAS lo) 
PEKIN 

LONDRES 
CALCUTA 7 
WASHINGTON Lo) 


Entonces te pedirá que introduzcas los nombres de los tres jugadores: 


111 


112 


PAN INTRODUCE EL NOMBRE DEL AGENTE No. 1 
[) ? LAURA 
INTRODUCE EL NOMBRE DEL AGENTE No. 2 
? JAVIER 
INTRODUCE EL NOMBRE DEL AGENTE No. 3 


E ? DAVID 
¡MM YO SERE EL AGENTE NUMERO 4 


Tras esto, el ordenador asignará una ciudad de origen a cada jugador y 
les dirá la ciudad a la que tienen que dirigirse: 


ESTAS SON LAS CIUDADES DE LAS QUE 


5 PROCEDEN LOS AGENTES: 
LAURA - ALGECIRAS 
1 JAVIER - PEKIN 


DAVID -— LONDRES 
ORDENADOR - CALCUTA 


Y 
[ ) LOS DOCUMENTOS HAN DE SER ENTREGADOS 
EN WASHINGTON 


Luego aparecerá en la pantalla un mapa de lo más detallado con la 
inicial de cada jugador (en el caso del ordenador, una O), debajo de la 
ciudad de la que parten. La ciudad a la que se dirigen todos ellos 
(Washington, en esta partida) se sitúa en el centro del mapa: 


= 
O $ | 
lo) LONDRES CALCUTA 


Se tiran los dados para cada jugador. El que consiga un total más alto 
en esa baza avanza una posición en dirección a la ciudad a la que todos 
intentan llegar: 


LAURA DESDE ALGECIRAS - 8 
JAVIER DESDE PEKIN — 7 
DAVID DESDE LONDRES - 8 
ORDENADOR DESDE CALCUTA -— 2 
EL AGENTE LAURA AVANZA 

HACIA WASHINGTON 


0N0 


S 
| 

¡ 

' 

| 

I 
L 
¡E 


' 

| 

| 

1 

' 
z 

1 

' 

| 

' 

! 

l 
a 
¡ 


1] 


LONDRES CALCUTA 


1) 


LAURA DESDE ALGECIRAS - 3 
JAVIER DESDE PEKIN — 4 
DAVID DESDE LONDRES -— 10 
ORDENADOR DESDE CALCUTA -— 2 
EL AGENTE DAVID AVANZA 

HACIA WASHINGTON 


o) 


Ms O 
ALGECIRAS PEKIN lo) 
==. a... a. a J 


] 
] 
y 
1) 
L 


1 


w 
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E 
LJ) 
] 
] 
] 
] 
] 
] 
E 
] 
] 
] 
] 


L 


LONDRES CALCUTA 
Po] LAURA DESDE ALGECIRAS - 10 
¡AA JAVIER DESDE PEKIN — 4 

DAVID DESDE LONDRES -— 10 


ORDENADOR DESDE CALCUTA - 3 
EL AGENTE LAURA AVANZA 
HACIA WASHINGTON 


7 


Si hay dos jugadores que consiguen el mismo total, avanza aquel que 
tiró primero. Aunque parezca que esto va en perjuicio de los jugadores 
que les toca tirar en tercer y cuarto lugar (un humano y el ordenador), 
parece que los dados nivelan la cosa: 


E 
E) 
D 
Tr 
0) 
m 
(e) 
mi 
D 
D 
169] 
T 
m 
A 
a] 
Zz 


Li 


) 
y 
po1 
tol 
Dl 
| 
1 
1 
1 
| 
a 
l 
l 


LONDRES CALCUTA 


L) 


LAURA DESDE ALGECIRAS -— 464 
JAVIER DESDE PEKIN -— 2 
DAVID DESDE LONDRES -— 3 
ORDENADOR DESDE CALCUTA - 8 
EL AGENTE ORDENADOR AVANZA 
HACIA WASHINGTON 


L 


La victoria será para el más rápido: 


D 
fe 
[e] 
m 
(9) 
nm 
2 
D 
u 

o 

tos) 

D 

pa 

o 
0] 
m 
KR 
nm 
Z 

A 

¡E 


ES 

| 
1 
¡MN 


qq J == - - -. -. 
A a a: W o A a a 
22 ota 2 [_) 
— e. o o a o ss 0 a a da a 
E E RI A, 
O 7 
LONDRES CALCUTA PE, 


LAURA DESDE ALGECIRAS - 11 
JAVIER DESDE PEKIN -— 8 
DAVID DESDE LONDRES -— 8 
ORDENADOR DESDE CALCUTA -— 6 
EL AGENTE LAURA AVANZA 

HACIA WASHINGTON 


go 


DIA 
ALGECIRAS PEKIN 


O 


A 


a 


a a a J == == - - 

e o > A 
EraaRRES IN 
IEA AA pal 
AN Pp) 
LONDRES CALCUTA hu) 


11 


a 


o0ú0uúu0 0 OOO O O OOO O O O O O 


EL AGENTE JAVIER HA SIDO EL 


PRIMERO EN HACER LLEGAR 
LOS DOCUMENTOS 
A WASHINGTON 


HA TARDADO 18 DIAS 


Cuando te sientas con ganas de dar una vuelta por Bangkok, Jartum, 
Shangai o Quito, ejecuta el siguiente listado y deja saltar los dados: 


1 REM 603616 16-16 26-16 36-16-2616 1 26-36 016 

2 REM +* * 

3 REM * AGENTE SECRETO + 

4 REM + * 

S REM 6062446362634 26 34 26024 46-36 2024 4034 

10 REM 

20 REM JUEGO DE DADOS PARA 
3 JUGADORES... 

30 REM 

40 REM 

SO GOSUB 510: REM INICIALIZACION 

60 GOSUB 360: REM MAPA 

70 IF IR<>0 THEN 100 

80 GOSUB 160:REM TIRA LOS DADOS 

90 GOTO 60 

100 PRINT "EL AGENTE "5BS(IR)5" HA SI 

DO EL": PRINT "PRIMERO EN HACER LLEGAR 

"*PRINT"LOS DOCUMENTOS" 


Y EL ORDENADOR! 


110 PRINT "A "5A$(5) 

120 PRINT 

130 PRINT TAB(12);"HA TARDADO"DIA"DIA 
Ss" 

140 END 

150 REM 4646416 4616 466 46 616016 

160 REM TIRA LOS DADOS 

170 PRINT 

180 M=1 

190 FOR J=1 TO 4 


200 C(J)=INT(RND(1)*6+RND(1)+6)+1 

210 PRINT B$(J)5" DESDE "3A$(J)3" - " 
30(J) 

220 IF C(J)>>C(M) THEN M=J 

230 NEXT J 

240 PRINT "EL AGENTE "3B$(M)5" AVANZA 
"*PRINT "HACIA "5As$(5) 

250 IF M=1 THEN Z(A1,A2)=45:A1=A1+1:A 
=A2+1:Z(A41,A2)=ASC(B$(1)) 

260 IF M=2 THEN Z(B1,B2)=45:B1=B1+1:B 
2=B2-1:7Z (B1,B2)=ASC(B$ (2) ) 

270 IF M=3 THEN Z(C1,C2)=45:C1=C1-1:C 
2=C2+1:7 (C1,C2)=ASC(BS$ (3) ) 

280 IF M=4 THEN Z(D1,D2)=45:D1=D1-1:D 
2=D2-1:Z (D1,D2)=ASC(BS$ (4)) 

290 IF Al=7 AND A2=7 THEN IR=1 

300 IF B1=7 AND B2=7 THEN IR=2 

310 IF Ci=7 AND C2=7 THEN IR=3 

320 IF Di=7 AND D2=7 THEN IR=4 

330 GOSUB 990 

340 RETURN 

350 REM ese 40 30 sedes 

360 REM EL MAPA 
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370 
380 
390 
400 
(2) 
410 
420 
430 
440 
450 
460 
470 
(4) 
480 
490 
500 
510 
520 
530 
540 
es:" 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 


CcLs 

DIA=DIA+1 

PRINT TAB(11)3"DIA"DIA 

PRINT A$(1)5TAB(26-LEN(AS (2)))5AS$ 


FOR J=1 TO 13 

FOR K=1 TO 13 

PRINT CHRS$(Z (J,K))35" "5 

NEXT K 

PRINT 

NEXT J 

PRINT A$(3)5TAB(26-LEN(AS (4)));A$ 


GOSUB 990 

RETURN 

REM 4626244616 6 36 34 16 36-26 10 16 16 

REM INICIALIZACION 

CcLs 

DIM A$(5),B$ (4),C(4),Z (13,13) 
PRINT:PRINT "Estas son las ciudad 


FOR J=1 TOS 

RESTORE 

FOR T=1 TO RND(1)+*16+1 

READ Bs$ 

NEXT T 

As (J)=BS 

T=1 

IF T>=J THEN 650 

IF A$(T)=A$ (J) THEN 560 
T=T+1:GOTO 620 

PRINT A$(J) 

NEXT J 

PRINT:PRINT 

680 FOR J=1 TO 3 

690 PRINT "INTRODUCE EL NOMBRE DEL AG 
ENTE No."J;5 

700 INPUT B$(J) 

710 NEXT J 

720 PRINT TAB(S5)3"YO SERE EL AGENTE N 
UMERO 4" 

730 B$(4)="O0RDENADOR" 

740 GOSUB 990 
750 PRINT:PRINT 
ES DE LAS QUE 

p" 

760 FOR J=1 TO 4 
770 PRINT B$(J)5" - 
780 NEXT J 

790 PRINT:PRINT "LOS DOCUMENTOS HAN D 
E SER ENTREGADOS" 


"ESTAS SON LAS CIUDAD 
PROCEDEN LOS AGENTES 


"348 (J) 


o. o 


O 


O 


o.0 0.0 


o. Oo 


OoODOomOo Ooomo0 


PRINT TAB(9)3"EN "5A$(5) 
FOR J=1 TO 13 

FOR K=1 TO 13 

7(J,K)=45 

NEXT K 

NEXT J 

Al=1:1A2=1:REM AGENTE No. 
B1=1:B2=13:REM AGENTE No. 
C1=13:C02=1:REM AGENTE No. 
D1=13:D2=13: REM AGENTE No. 
Z(A1,A2)=ASC(B$(1)) 

7 (B1,B2)=ASC(B$(2)) 
Z(C1,02)=ASC(B$(3)) 

7 (D1,D2)=ASC(B$(4)) 


940 7 1(7,7)=ASC(AS (5) ) 

950 IR=0:REM SENAL DE FIN DE JUEGO 
960 DIA=0 

970 RETURN 

980 REM 364364616 26-2364-26HI6H HI 

990 REM BUCLE DE RETARDO 

1000 FOR T=1 TO 1000:NEXT T 

1010 RETURN 

1020 DATA "MOSCU”, "PEKIN", "WASHINGTON 
", "PARIS", "GENOVA"”, "BONN", "BARCELONA" 
, "SHANGHAI", "TOKIO", "ALGECIRAS", "BUEN 
OS AIRES", "CALCUTA", "LONDRES", "BANGKO 
K", "QUITO", "CARACAS", "NAIROBI" 

1030 RUN 


Oo oo. Oo 


12 


Carrera 
de dados 


Tu paciente máquina y tú os turnáis para lanzar un solo dado en esta 
frenética carrera a lo largo de un tablero numerado. Cada uno va avan- 
zando el número de posiciones indicadas por el dado y luego añade a su 
total el número de la posición en la que haya caído (la numeración del 
tablero no es consecutiva). 

Aquí' tenemos el juego en acción: 


TU MARCADOR ES O Y EL MIO ES O 


pe 
PULSA UNA TECLA PARA TIRAR LOS DADOS EA 


45 5 

435.23 

14.5 

SE IA A MR === 
34065635 [) 
>> HAS SACADO 53 


A 
143213423412431423412 


asas aa 


Ñ 


> TU TOTAL ES 1 < 


E 


AHORA ME TOCA TIRAR A MI... 


$ ATENCION ¿4 


1) 


ASS 243406 
1 

[_) z 

16.3 4 

166.615.406 
5 35641415146 
( 16 

>> HE SACADO 4 


O 
143213423412431423412 


ca as 


] 


> MI TOTAL ES 3 < 


1) 


Y este es el final: 


AHORA ME TOCA TIRAR A MI... 


L 


$ ATENCION 4H 


14561 
o) 15551415.4 
LL) 4 
151 3 5073 
4453245 
== 30:36 
5 >> HE SACADO 6 


120 


A a aaa 
143213423412431423412 


oa as 


> MI TOTAL ES 11 < 
ESTA VEZ, SOY EL GANADOR 
POR EL 45.4 % 


HAS CONSEGUIDO 6 PUNTOS 


El juego termina cuando uno de los dos jugadores consigue un total 
superior a nueve. El jugador que llegue al final de la línea pierde automáti- 


camente. 
Este es el listado que te permitirá competir con tu ordenador: 


REM 06 6 26 M6 MEM MIA 


280 H=H+VAL (MIDS$ (E$,H1,1)) 


300 PRINT 


630 PRINT:PRINT TAB(7)5"HAS CONSEGUID 


1 
1 ' 

O ! 2 REM «+ * 310 PRINT TAB(12)5"> TU TOTAL ES"H"<" 1 O 
| 3 REM * CARRERA DE DADOS * 320 IF H>9 THEN 650 ' 
1 4 REM*« * 330 PRINT "=== 

O 0 SS REM 0606 60 | " ¡O 
¡10 REM 340 FOR T=1 TO 2000:NEXT T ' 
| 20 H=0:C=0: REM MARCADORES 350 PRINT:PRINT 

O | 30 H1=0:C1=0:REM POSICIONES INICIALES 360 PRINT "AHORA ME TOCA TIRAR A MI.. 10 
40 E$="143213423412431423412" on ! 
¡50 CLS:PRINT:PRINT 370 PRINT:PRINT TAB(9)5"** ATENCION $ 1 

O 1 60 IF INKEYS$<>"" THEN 60 «e LO 
| 70 IF H=0 AND C=0 THEN 100 380 FOR T=1 TO SOO0:NEXT T : 

l 80 PRINT:PRINT "TU: "5D$:PRINT TAB(4) 390 PRINT "===>... ! 

O ! ¡ES:PRINT TAB(4)3D8. | e O 
1 90 PRINT:PRINT "YO: "5A$:PRINT TAB(4) 400 FOR J=1 TO 30 ! 

¡ 3ES:PRINT TAB(4)5A$ 410 D=INT(RND(1)*6)+1 ! 

O |! 100 PRINT:PRINT "TU MARCADOR ES"H"Y E 420 PRINT D; O 
y LOMIO ES"C 430 IF RND(1)>.7 THEN PRINT ; 

y 110 PRINT:PRINT “"PULSA UNA TECLA PARA 440 NEXT J ¡ 

O ! TIRAR LOS DADOS" 450 PRINT " >> HE SACADO"D O 
120 PRINT "—========================-- 460 PRINT "=== 
A A a A 

O | 130 IF INKEYS="" THEN 130 470 C1=C1+D LO 
1 140 PRINT:PRINT TAB(9)5 "st ATENCION + 480 IF C1>21 THEN 710 n 
Do ge ANA ie ie "REM 21 | 

O ! 150 FOR T=1 TO 500:NEXT T rta O 
1160 PRINT "-===================--- 500 MIDS(A$,C1,1)="$" ! 

Y " 510 C=C+VAL(MID$(E$,C1,1)) ' 

O | 170 FOR J=1 TO 30 520 PRINT:PRINT A$:PRINT ES$:PRINT AS | O 
y 180 D=INT(RND(1)+*6)+1 530 PRINT 
| 190 PRINT D; 540 PRINT TAB(12)3"> MI TOTAL ES"C"<" ; 

O | 200 1F RND(1)>.7 THEN PRINT 550 IF C>9 THEN 600 0) 
1 210 NEXT J 060 PRINT 1======= ===" === ñ 
| 220 PRINT " >> HAS SACADO"D. | ---=====-- » 

O 10230 PRINT "===" 570 FOR T=1 TO 2000:NEXT T O 
LO a a " 580 GOTO 50 ' 

l 240 H1=H1+D 590 REM ! 

O ! 250 IF H1>21 THEN 740 600 REM FIN DEL JUEGO ! O 
260 DR cara ":REM 21 610 PRINT “ESTA VEZ, SOY EL GANADOR" ¡ 
Lo» 620 PRINT TAB(7)53"POR EL"INT(1000*(C- 1 

O | 270 MIDS(DS,H1,1)="8" H/C)/10"%" vo 
' ' 

! 


290 PRINT:PRINT D$:PRINT ES:PRINT D$ 


O"H"PUNTOS" 


121 


' 
1 
1 
1 
1 
1 
1 
! 
' 
' 
1 
' 
' 
1 
1 
' 
1 
1 


640 END 

650 PRINT:PRINT "ESTA VEZ, HAS GANADO 
TU" 

660 PRINT 

670 PRINT TAB(7)5"POR EL” INT(1000* (H- 
C)/H)/10"%" 

680 PRINT:PRINT "YO HE CONSEGUIDO"C"P 
UNTOS" 

6790 END 

700 REM 36363636 26 36 26 36d dde 


122 


710 REM SOBREPASADA ¡ 
720 PRINT:PRINT "GANAS TU PORQUE YO M |! 
E HE PASADO" h 
730 GOTO 750 : 
740 PRINT:PRINT "GANO YO PORQUE TE HA | 
S PASADO" . 
750 PRINT:PRINT "PUNTUACIONES FINALES ! 
5” ] 
760 PRINT TAB(22)3"TU:Z "H . 
770 PRINT TAB(22)3"YO: "C ! 
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Media 
tonelada 


En este juego, como en el anterior, te enfrentas tú solo con la máquina. 
Al igual que en CARRERA DE DADOS, jugador humano y máquina 
tiran por turno un solo dado, pero ahora el objetivo es alcanzar un total 
superior a cincuenta. Todos los números son válidos y se van añadiendo 
al total de cada jugador (salvo el uno). Cuando uno de los dos tenga la 
mala suerte de que le salga tal número, habrá de volver a empezar desde 
cero, ya que su total quedará automáticamente borrado. Cada uno de los 
dos ha de juzgar cuándo debe dejar de añadir puntos a su marcador para 
dar a su oponente una oportunidad. 

La partida que se incluye a continuación deja bastante claro el modo 
de jugar a MEDIA TONELADA: 


>> tirar los dados “< 


>> Pulsa el ESPACIADOR para << 5 


Pulsa la tecla <E> cuando 
decidas terminar 


Preparado para lanzar los dados... 


A 


e e € € € € € o PP € € e e e e O e e A A e a e e e 


Has sacado 5 


1) 


Tu marcador es: 5 


) 


>> Pulsa el ESPACIADOR para <X 
>> tirar los dados <X 


Pulsa la tecla <E> cuando 
decidas terminar 


) 


Preparado para lanzar los dados... 


Has sacado 4 


[|] Tu marcador es: 40 


Ahora tirare yO... 
a 5 
A, 4 


124 


He sacado 4 

Mi marcador es 6 
Vuelvo a tirar 

Mi marcador es 6 


Vuelvo a tirar 


€ € € € e e A a e e e 


He sacado 3 


Mi marcador es 9 


He sacado 6 
Mi marcador es 19 
Vuelvo a tirar 


Te toca tirar... 


12 


a 


Tu marcador es: 46 


>> Pulsa el ESPACIADOR para << 
>> tirar los dados << 


Pulsa la tecla <E> cuando 
decidas terminar 


ñ 


Has sacado 6 


L] 


Tu marcador es: 52 


L] 


Bueno, hemos llegado al final de la 
partida... 


el 


Parece que has tenido suerte esta vez 


He marcado: 19 
Has marcado: 52 


e 


Y aquí tienes el listado: 


1 REM 1636264616363 36-366 46-26-36-36-36-16 363€ 80 A$=INKEYS$ 


2 REM + + 90 IF A$<>" " AND A$<>"E" AND A$<>"e" 
3 REM * MEDIA TONELADA +* THEN 80 

4 REM + + 100 IF A$="e" OR A$="E" THEN 240 
A iii 110 PRINT "Preparado para lanzar los 
10 REM dados..." 


20 HS=0:CS=0 

30 CLS:PRINT:PRINT 

40 IF HS>0 THEN PRINT:PRINT TAB(7)5"T 
u marcador es: "HS 

50 IF HS>50 THEN 460 

60 IF INKEYS$<>"" THEN 60 160 PRINT TAB (2%*X)5X 
70 PRINT:PRINT TAB(4)3 ">> Pulsa el E 170 NEXT T 
SPACIADOR para <<":PRINT TAB(8)53">> t | 180 PRINT2¿PRINT "-----=-===========-.> 
irar los dados <<":PRINT:PRINT TAB(6) |  --=-============-- 

¿"Pulsa la tecla <E> cuando":PRINT TA 190 PRINT "Has sacado"X 
B(10);3"decidas terminar" 200 HS=HS+X 


120 FOR T=1 TO 10 

130 X=INT(RND(1)+*6)+1 

140 J$=RIGHTS(STR$(X),1) 

150 IF ASC(J$)=49 AND RND(1)>.42 THEN 
130 


oO OoOoOoOo0 
ooo Oo Oo Oo 
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OO OOOuoJp0oooososomsOo 


210 FOR T=1 TO 500: NEXT T 

220 IF X=1 THEN PRINT "asi que tu mar 

cador se pone a cero": HS=0 

230 IF HS>0 THEN 40 

240 CC=0:REM CUENTA LAS TIRADAS 

250 CT=0:REM CUENTA EL TOTAL DE ESTA 
TIRADA 


PRINT "Ahora tirare yo..." 

FOR T=1 TO 10 

X=INT(RND(1)*6)+1 

JS=RIGHTS(STRS(X),1) 

IF ASC(J$)=49 AND RND(1)>.62 THEN 
290 

320 PRINT TAB(2*X)53X 

330 NEXT T 

340 PRINT¿PRINT "—======-==-========-==- 


350 PRINT "He sacado"X:PRINT 

360 CS=CS+X 

370 IF CS>0 AND X<>1 THEN PRINT TAB(1 
3)53"Mi marcador es”CS 

380 IF CS>50 THEN 460 

390 IF X=1 THEN PRINT "asi que mi mar 
cador se pone a cero":CS=0:GOTO 40 
400 IF RND(1)>.89 THEN 420 

410 IF CS-HS>135 OR CT<9 OR CC<2 OR HS 


>42 THEN PRINT:*PRINT "Vuelvo a tirar" 
¿FOR T=1 TO 400:NEXT T2GOTO 260 

420 PRINT:PRINT TAB(6)5"Te toca tirar 

” 

430 
440 
450 
460 
470 
480 
nal 
490 
500 


FOR T=1 TO S50O0:NEXT T 

GOTO 40 

REM 016 6166 M0 

REM FIN DEL JUEGO 

PRINT:PRINT 

PRINT "Bueno, hemos llegado al fi 
de la partida..." 

PRINT:PRINT 

IF CS=HS THEN 560 

510 IF CS>HS THEN PRINT TAB(3);5"Creo 

que no hay dudas sobre quien es el me 
jor" ELSE PRINT "Parece que has tenid 
o suerte esta vez" 

520 PRINT:PRINT 

530 PRINT "He marcado: "CS,"Has marcad 
o: "HS 

540 END 

550 REM 

560 REM EMPATE 

570 PRINT:PRINT 

580 PRINT "Por muy improbable que par 
ezca, en esta partida hemos termina 
do empatados a"HS 


OO OoOoOoO0ooOoomsOosO0o 
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Parte V 
Comecocos 


EL CUBO DE ELEUSIS 


TRES EN RAYA EN TRES 
DIMENSIONES 


LOS ELEFANTES AZULES 
ALFABETICA 
DETECTIVE O 
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El cubo 
3 de Eleusis 


En torno a Eleusis, en la antigua Grecia, floreció un culto religioso, los 
misterios eleusíacos, surgidos de un rito agrario a la fertilidad cuyo origen 
se remonta aproximadamente al año 600 antes de Cristo. 

Para ser iniciado en este culto, el novicio tenía que superar una serie 
de pruebas. En este programa vamos a representar una de éstas, aquella 
en la que se examina la capacidad mental del neófito. 

Te es entregado un cubo realizado con un material sólido, translúcido, 
parecido al ámbar. Posteriormente se te dice que éste contiene tres gemas, 
las cuales son invisibles a simple vista. Has de concentrar tu energía 
mental en una parte del cubo y deducir, dependiendo de que tu rayo de 
energía mental salga o no por la cara opuesta del mismo, dónde están 
situadas las tres gemas. 

Para escribir este programa me fabriqué, primero, un cubo de cartón, 
pues así me resultaba mucho más fácil visualizar la posición que ocupa- 
ban las tres gemas en su interior. Tal vez, a ti te conviniera hacer lo 
mismo. 

En la pantalla del ordenador aparecerá un dibujo del cubo con sus 
caras “desplegadas”, así: 


131 


132 


suP. 
123 
Se $4 
IL) 789 
1Z0. DEL. DER. DET. 
P) LE DAS AAA AA 
| 456 456 654 654 
789 789 987 987 
= INF. 
pS 3 
A, 456 
123 


El ordenador te irá indicando cuántos rayos de energía mental tienes 
en tu haber al tiempo que te pregunta en qué cara del cubo vas a 
concentrar tu poder mental (cuando creas que ya sabes dónde están 
situadas las gemas, no tienes más que introducir un cuatro): 


ES >CUENTAS CON 20 RAYOS DE E. MENTAL< 
—— QUIERES CONCENTRARTE EN 
1- PARTE SUPERIOR 
== 2- PARTE DELANTERA 
08 3- PARTE IZQUIERDA 
A, 4- LANZAR UNA HIPOTESIS 
2 2 l 
== CONCENTRACION DE LA ENERGIA MENTAL EN 
DS LA CARA DELANTERA 
Lai QUE NUMERO (DEL 1 AL 9)? 5 


En este caso, el jugador desea concentrarse en la cara delantera y envía 
un rayo a la posición 5. El ordenador informa del resultado: 


sup. 
123 PAN 
456 Lo) 
789 
I1Z0. DEL. DER. DET. == 
123 123 321 321 a 
456 456 654 654 2 
789 789 987 987 
sE E 
7809 LL) 
456 
voy 


[ 


EL RAYO HA SALIDO POR EL SECTOR 
3 POSTERIOR 


Esto indica que no hay ninguna gema a lo largo de esa línea que va 
del 5 de la cara delantera al 5 de la posterior. 

El jugador continúa enviando rayos de energía mental hasta que está 
seguro de la posición de las gemas: 


12 [|] 
123 
456 A 
789 
GAN 
I1Z0. DEL. DER. DET. E 
123123 321 321 Pe, 
456 456 654 654 
789 789 987 987 
EA 
INF. (M 
789 
456 
A, 


>CUENTAS CON 16 RAYOS DE E. MENTAL< 


QUIERES CONCENTRARTE EN 
1- PARTE SUPERIOR 
2- PARTE DELANTERA 


a 


8 
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JODODLD 


Unas cuantas 
todas las gemas: 


JouLo 


3- PARTE IZQUIERDA 


4-— LANZAR UNA HIPOTESIS 


22 


CONCENTRACION DE LA ENERGIA MENTAL EN 


LA CARA DELANTERA 


QUE NUMERO (DEL 1 AL 9 
suP. 
123 
456 
789 
170. DEL. DER. 
LES HZ 321 
456 456 654 
789 789 987 
INF. 
789 
456 
123 


32 1 


EL RAYO NO HA SALIDO POR EL OTRO LADC 


jugadas después, el jugador cree que ha encontradc 


>CUENTAS CON 3 RAYOS DE E. MENTAL< 


QUIERES CONCENTRARTE EN 


1- PARTE SUPERIOR 
2- PARTE DELANTERA 
3- PARTE IZQUIERDA 
4- LANZAR UNA HIPOTESI 


s? 4 


ES EL MOMENTO DE LANZAR UNA HIPOTESIE 


INTRODUCE COORDENADAS 
>> LOCALIZADA EN 
INTRODUCE COORDENADAS 
>> LOCALIZADA EN 
INTRODUCE COORDENADAS 
>> LOCALIZADA EN 


(3 NUM.)? 7,8,5 
785<< 

(3 NUM.)? 1,4,3 
1,4,3 

(3 NUM.)? 2,5,4 
2,5,4 


LAS HAS ENCONTRADO QUEDANDOTE O 
3 RAYOS DE ENERGIA MENTAL lu) 


ESTABAN EN: 


MN 
ul 
E 


7.8 5 [ 


Cuando te encuentres preparado para ser iniciado en este misterioso 
culto, introduce el siguiente programa: 


1 REM 4e61626-16-16-26-1626 26-26 26-10-16 466160 360 FOR J=1 TO 3 


' ¡ 

O 2 REM +» * 370 IF X=M(J) THEN FL=1 LO 
|. 3 REM * EL CUBO DE ELEUSIS + 380 NEXT J ¿ 
| 4 REM + * 390 GOTO 470 ' 

O ¡ S REM 4323626162616 16 36 36-26-16 16 36-36-16 16-36 34-16-16 46 400 FOR J=1 TO 3 A O 
| 10 REM 410 IF X=N(J) THEN FlL=1 1 
1 20 DIM A(9),B(9),C(9),M(3),N(3),0(3) 420 NEXT J : 

O ! 30 RAYOS=20 430 GOTO 470 O 
40 FOR J=1 TO 3 440 FOR J=1 TO 3 ' 

; 50 Z=INT(RND(1)*9)+1:3 1F A(Z)=1 THEN 5 450 IF X=0(J) THEN FL=1 ; 
Oj¡| o 460 NEXT J O 
l 60 A(Z)=1 470 IF FL=1 THEN PRINT "EL RAYO NO HA |! 

1. 70 Z=INT(RND(1)*9)+1: 1F B(Z)=1 THEN 7 SALIDO POR EL OTRO LADO":GOTO 520 í 
O!lo0 480 PRINT "EL RAYO HA SALIDO POR EL Ss | O 
| 80 B(Z)=1 ECTOR":*PRINT X; 1 
1 90 Z=INT(RND(1)*9)+1: 1F C(Z)=1 THEN 9 490 IF Z=1 THEN PRINT "INFERIOR" ] 
O! o 500 IF Z=2 THEN PRINT "POSTERIOR" O 
' 100 C(Z)=1 510 IF Z=3 THEN PRINT "DERECHO" l 
110 NEXT J 520 FOR T=1 TO 1500:NEXT T 1 
O ! 120 GOSUB 790 530 RAYOS=RAYOS-1 Mo) 
| 130 GOSUB 600 540 IF RAYOS>0 THEN 130 1 
y 140 PRINT ">CUENTAS CON"RAYOS"RAYOS D 550 PRINT:PRINT "LO SIENTO, SE TE HA 1 
O | EE. MENTAL<"*PRINT ACABADO EL TIEMPO" O 
! 150 PRINT "QUIERES CONCENTRARTE EN" 560 PRINT "NO HAS CONSEGUIDO LOCALIZA 1 
1 160 PRINT "1- PARTE SUPERIOR" RLAS" : 

O | 170 PRINT "2- PARTE DELANTERA" 570 GOTO 1120 O 
| 180 PRINT "3- PARTE IZQUIERDA" 580 END ¡ 

1 190 PRINT "4- LANZAR UNA HIPOTESIS" 590 REM 36366361626 36 3626 dd II III III A 
O ! 200 INPUT z 600 REM IMPRESION DE PANTALLA "O 
¡ 210 IF Z<1 OR Z>4 THEN 200 610 CLS:PRINT 1 
1. 220 IF Z=4 THEN GOSUB 890 620 PRINT " SsuP. " ! 

O ¡ 230 IF Z=4 THEN 540 630 PRINT " 123" O 
1 240 PRINT "CONCENTRACION DE LA ENERGI 640 PRINT " 456" í 
lA MENTAL EN"; 650 PRINT " 789" : 

O 1 250 PRINT "LA CARA "; 660 PRINT “O 
| 260 IF Z=1 THEN PRINT "SUPERIOR" 670 PRINT " IZQ. DEL. DER. — DE ! 

1 270 IF Z=2 THEN PRINT "DELANTERA" Ta ] 

O | 280 IF Z=3 THEN PRINT "IZQUIERDA" 680 PRINT " 123123 321 3 ¡O 
; 290 PRINT "QUE NUMERO (DEL 1 AL 9)"; 21” 1 
|. 300 INPUT X 690 PRINT" 456 456 654 6 1 
O | 310 IF X<1 OR X>9 THEN 300 54" O 
| 320 GOSUB 600 700 PRINT" 789 789 987 9 1 
s 330 FL=0 87" ' 

O | 340 IF Z=2 THEN 400 710 PRINT LO 
Il. 350 IF Z=3 THEN 440 720 PRINT " INF." ! 


135 


OOOO Oo Oo 0oooooOooOo 


730 PRINT " 7809" 
740 PRINT " 456" 
750 PRINT " 123" 
760 PRINT 

770 RETURN 

780 REM 3334 36 36 36-16-36 36-14-3626 


790 REM LOCALIZACION 

800 FOR J=1 TO 3:M(J)=0:N(J)=0:0(J)=0 
¿NEXT J 

810 Mi=1:N1=1:01=1 

820 FOR J=1 TO 9 

830 IF A(J)=1 THEN M(M1)=J:M1=M1+1 
840 IF B(J)=1 THEN N(N1)=J:N1=N1+1 
850 IF C(J)=1 THEN 0(01)=J:01=01+1 
860 NEXT J 

870 RETURN 

880 REM 1436-46 36-36 26 26 26-26-26 26-36-2616 26- M6 MEM 
890 REM PREDICCION DE LA LOCALIZACION 
900 PRINT "ES EL MOMENTO DE LANZAR UN 
A HIPOTESIS” 

910 PRINT 

920 GEMAS=0 

930 FOR T=1 TO 3 

940 PRINT "INTRODUCE COORDENADAS (3 N 
UM." 

950 INPUT A(T),B(T),C(T) 

960 IF A(T)=M(1) AND B(T)=N(1) AND C( 
T)=0(1) THEN PRINT TAB(5)3">> LOCALIZ 
ADA EN"M(1)5N(1)50(1)5 "<<": GEMAS=GEMA 
S+1 

970 IF A(T)=M(2) AND B(T)=N(2) AND C( 
T)=0(2) THEN PRINT TAB(5)5”>> LOCALIZ 
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ADA EN"M(2)5N (2)50(2) 3 "<<": GEMAS=GEMA 
S+1 

980 IF A(T)=M(3) AND B(T)>=N(3) AND C( 
T)=0(3) THEN PRINT TAB(5)5">> LOCALIZ 
ADA EN"M(3)5N(3)50(3)5 "<<": GEMAS=GEMA 
S+1 

990 NEXT T 

1000 FOR T=1 TO 1000:NEXT T 

1010 IF GEMAS=3 THEN 1080 

1020 PRINT:PRINT TAB(4)5"<< HAS ENCON 
TRADO"GEMAS"GEMAS >>":*PRINT 

1030 IF INKEYS<>"" THEN 1030 

1040 PRINT:PRINT "PULSA CUALQUIER TEC 
LA PARA CONTINUAR" 

1050 IF INKEYS$="" THEN 1050 

1060 CLS 

1070 RETURN 

1080 REM +%* FINAL DEL JUEGO +** 

1090 GOSUB 600 

1100 PRINT:PRINT 

1110 PRINT "LAS HAS ENCONTRADO QUEDAN 
DOTE"RAYOS:PRINT "RAYOS DE ENERGIA ME 
NTAL" 
1120 PRINT 

1130 PRINT TAB(7)5 "ESTABAN EN: " 
1140 PRINT 

1150 FOR J=1 TO 3 

1160 PRINT TAB(9)5M(J)5N(J)50(J) 
1170 PRINT 

1180 NEXT J 

1190 END 


O 


00 O OOOO OoooomOo 
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ha Tres en 
“* raya en tres 
dimensiones 


El tres en raya (o ceros y cruces) jugado en una cuadrícula normal de 
tres por tres enseguida llega a dominarse, perdiendo así gran parte de su 
interés. Hace ya algún tiempo que existen versiones tridimensionales del 
mismo. La mayoría de ellas están basadas en cuadrículas de cuatro por 
cuatro por cuatro, las cuales, aunque ciertamente suponen para el jugador 
un reto mucho mayor que la antigua versión de tres por tres, tal vez no 
sean todo lo divertidas que uno esperaría debido a la dificultad que 
entraña el hacerse una idea del tablero y de la posición de las fichas en el 
mismo. 

Este programa intenta soslayar la falta de interés de la versión en un 
tablero de tres por tres, al tiempo que evita la complejidad de las cuadrí- 
culas de cuatro por cuatro por cuatro. Lo que hace, en realidad, es utilizar 
tres tableros normales superpuestos. 

Esto. es lo que se ve en la pantalla al inicio del juego: 


SUPERIOR: 
456 y a ek 
7.8 9 de Hr a A, 


138 


CENTRAL: 


E 


10 11 12 
13 14 15 e XX 
16 17 18 . 
= 

[) INFERIOR: 
19 20 21 . o. o. 
22 23 24 .. e 
25 26 27 o a 


D 


CUAL ES TU JUGADA? 23 


Se juega en los tres tableros al mismo tiempo. La manera de ganar es 
conseguir poner tres símbolos en hilera en cualquiera de los tres tableros, 
del mismo modo que en la modalidad del juego en dos dimensiones. No 
obstante, también se puede ganar poniendo tres símbolos en hilera a lo 
largo de una de las diversas líneas que abarcan los tres tableros. 

El ordenador (la X) ha situado su ficha en la casilla central de la 
cuadrícula del medio. El número responde situándose también en el medio 
del tablero inferior, tras lo cual ordenador pone otra ficha en la cuadrícula 
superior: 


SUPERIOR: 
[) 1.2 3 ad 
45 6 A 
78 9 a 
7 CENTRAL: 
e, 10 11 12 A 
13 14 15 o 
16 17 18 do 
() 
INFERIOR: 
19 20 21 ES 


22 23 24 - 0D. . 
25 26 27 


O 


CUAL ES TU JUGADA? 19 


Ahora podemos ver cómo se va desarrollando una de esas victorias de 
las que hablábamos en segundo lugar. El ordenador sitúa otra X en la 
esquina inferior derecha de la cuadrícula inferior: 


19 20 21 D . E 
22 23 24 > O . >) 
25 26 27 5 á Xx 

LL) 


CUAL ES TU JUGADA? 25 


Y luego, en la siguiente jugada, pone otra en la esquina superior 
izquierda del tablero superior, con lo que completa una hilera de tres que 
va de la esquina superior izquierda de la cuadrícula superior a la esquina 
inferior derecha del tablero inferior, pasando por el centro de la cuadrícula 
central: 


SUPERIOR: ¿—< 
- E - [) 
456 E 
7 8 9 AR 
= 
CENTRAL: [) 
10 11 12 dr 
13 14 15 E. NO 
16 17 18 e eS al [) 
LJ 
INFERIOR: 
19 20 21 0% A 
22 23 24 . Moa e 
25 26 27 D . X —) 
YO GANO! 
O 
MI PUNTUACION ES: 1 ue 


TU PUNTUACION ES: O 


Aquí tenemos una parte de otra partida en la que el ordenador 
termina ganando al conseguir hacer tres en raya en el tablero superior: 


13 


Lo) 


7 


L 


E, 


7 


y 


z 


- 
¡3 


L 


7] 


L 


e 
El 


= 


L 


- 
y 


] 


- 
L 


> 
y 


) 


[] 


= 


) 


SUPERIOR: 


12 3 o. 
4556 . X 
7 8 9 .. 
CENTRAL : 

10 11 12 . . 
13 14 15 .« X 
165 17 18 O 
INFERIOR: 

19 20 21 . 0. 
22 23 24 . 0 
25 26 27 . . 


CUAL ES TU JUGADA? 


SUPERIOR: 

123 o. 
4 5 6 . X 
7 8 9 o 0 
CENTRAL: 

10 11 12 o. 
13 14 15 . X 
16 17 18 D. 
INFERIOR: 

19 20 21 o. 
22 23 24 . 0 
25 26 27 X o. 


CUAL ES TU JUGADA? 


SUPERIOR: 


[) 


O Xx O 
456 X Xx X 
7.89 DO xXx 
CENTRAL: (] 
A, 
10 11 12 A 
13 14 15 2 Me da 
15 17 18 O 5 7 
INFERIOR: ¡E 
19 20 21 a 
22 23 24 E [>] 
25 26 27 xo. | 
YO GANO! 


|] 
L_) 


MI PUNTUACION ES: 2 
TU PUNTUACION ES: O 


Las posibles victorias se agrupan en tres categorías (del mismo modo 
que las victorias normales en cada tablero por separado): 
A lo largo de una línea recta: 1, 10, 19 o 6, 15, 24. 


Cualquier diagonal en cualquiera de las caras: 1, 13, 25 o 3, 15, 27 o 3, 
11,195, 11,21, 


A través del cubo: 1, 14, 27 o 3, 14, 25. 


Cuando estés seguro de haber comprendido todo esto (y, en cierto 
modo, una vez que te pones a jugar es mucho más sencillo de lo que uno 
se imagina simplemente leyendo la introducción), aquí tienes el listado con 
el que puedes retar a tu ordenador a una partida en tres dimensiones: 


30 IF RND(1)>.5 THEN PRINT "PUEDES HA 
CER EL PRIMER MOVIMIENTO"*FOR T=1 TO 
2000:GOTO 130 


40 GOSUB 190: REM 


REM 463636243636 36 36 36-36-36 36-36-3636 3H HEHE 
M + * 


1 

2 

3 REM * TRES EN RAYA EN * 
4 REM * TRES DIMENSIONES + 
5 
6 


O 


O 
O REM + * IMPRESION DE PANTALLA 
REM 3636102426 26-24 36 36-16 36 36-36-2636 36 46-26 36 3046 50 GOSUB 360: REM 
COMPROBACION DEL GANADOR 
O 20 GOTO 3130:REM INICIALIZACION 60 IF Q<>0 OR M=99 THEN 29903 REM o 


oOo0O0 0 O OOOOOOOOoOOo<OoOO.OoOOquusOoOo Oo 


pS 
LH 
N 


FINAL DEL JUEGO 
70 M=0 
80 GOSUB 1110:REM MOVIMIENTO 
90 IF M=0 OR A(M)<>E THEN M=0:GOSUB 2 
810 
100 
110 
120 
130 


PRINT "Yo muevo en"M 
FOR T=1 TO 2000:NEXT T 
A(M)=B 
GOSUB 1902 REM 
IMPRESION DE PANTALLA 
GOSUB 360: REM 
COMPROBACION DEL GANADOR 
IF Q<>0 OR M=99 THEN 29901 REM 
FINAL DEL JUEGO 


140 
150 


GOSUB 1040: REM 
MOVIMIENTO DEL JUGADOR 


150 


170 
180 
190 
200 


GOTO 40 
REM 36363626 16 36 36 16 36-36-36 3-36 36-16-36 dE dE AE 0d 

REM IMPRESION DE PANTALLA 
CLS:PRINT:PRINT 

210 PRINT "SUPERIOR: ":PRINT 

220 PRINT "1 2 3",CHR$(A(1))3" 
HR$S(A(2))5" "5CHRS(A(3)) 


"sc 


230 PRINT "4 3 6",CHRS(A(4))3" "3C 
HRS(A(5))5" "3¿CHRS(A(6)) 
240 PRINT "7 8 9",CHRS(A(7))3" "3C 


HRS(A(8))3" "5CHR$(A(D)) 

250 PRINT:PRINT "CENTRAL: "*PRINT 
260 PRINT " 10 11 12",CHRS(A(10))5" 
CHAS (A(11))3" "5CHR$(A(12)) 

270 PRINT " 13 14 15",CHRS(A(13))3" " 
3CHRAS(A(14))3" "5CHR$(A(15)) 

280 PRINT " 16 17 18",CHR$S(A(16))3" " 
3CHRS(A(17))3" "3CHR$S(A(18)) 

290 PRINT:PRINT "INFERIOR: "2PRINT 
300 PRINT " 19 20 21",CHR$S(A(19))5" " 
¿CHR$(A(20))5" "5CHR$(A(21)) 

310 PRINT " 22 23 24",CHRS(A(22)35" ' 
¿CHR$(A(23))3" "5CHR$(A(24)) 

320 PRINT " 25 26 27",CHRS$(A(25))3" " 
¿CHR$S(A(26))3" "3CHR$(A(27)) 


330 PRINT 

340 RETURN 

350 REM 36364646 164436 36 36 16 46-06-16 1 dd dd dd 16 10366 

360 REM COMPROBACION DEL GANADOR 

370 Q=0 

380 IF A(1)=E THEN 460 

390 IF A(1)=A(2) AND A(2)=A(3) THEN Q 
=1: RETURN 

400 IF A(1)=A(4) AND A(4)=A(7) THEN Q 
=1: RETURN 

410 IF A(1)=A(5) AND A(5)=A(9) THEN Q 
=1: RETURN 

420 IF A(1)=A(10) AND A(10)=A(19) THE 
N Q=1: RETURN 

430 IF A(1)=A(11) AND A(11)=A(21) THE 
N Q=1: RETURN 

440 IF A(1)=A(14) AND A(14)=A(27) THE 
N Q=1: RETURN 

450 IF A(1)=A(13) AND A(13)=A (25) THE 


N Q=1: RETURN 

460 IF A(10)=E THEN 500 

470 IF A(10)=A(11) AND A(11)=A(12) TH 
EN Q=10: RETURN 

480 IF A(10)=A(13) AND A(13)=A(16) TH 
EN Q=10: RETURN 

490 IF A(10)=A(14) AND A(14)=A(18) TH 
EN Q=10: RETURN 

500 IF A(19)=E THEN 560 


510 IF A(19)=A(20) 
EN Q=19: RETURN 
520 IF A(19)=A(11) 
N Q=19: RETURN 

530 IF A(19)=A(13) 
N Q=19: RETURN 

540 IF A(19)=A (22) 
EN Q=19: RETURN 
550 IF A(19)=A (23) 
EN Q=19: RETURN 
560 IF A(2)=E THEN 590 

570 IF A(2)=A(5) AND A(5)=A (8) 
=21 RETURN 

580 IF A(2)=A(11) AND A(11)=A(20) THE 
N Q=2: RETURN 

590 IF A(11)=E THEN 610 

600 IF A(11)=A(14) AND A(14)=A(17) TH 
EN Q=11: RETURN 

610 IF A(20)=E THEN 630 

620 IF A(20)=A(23) AND A(23)=A(26) TH 
EN Q=20: RETURN 

630 IF A(3)=E THEN 690 

640 IF A(3)=A(6) AND A(6)=A(9) THEN Q 
=31 RETURN 

650 IF A(3)=A(15) AND A(15)=A(27) THE 
N Q=3: RETURN 

660 IF A(3)=A(12) AND A(12)=A(21) THE 
N Q=3: RETURN 

670 IF A(3)=A(5) AND A(5)=A(7) THEN Q 
=31 RETURN 

680 IF A(3)=A(14) AND A(14)=A(25) THE 
N Q=3: RETURN 

690 IF A(12)=E THEN 720 

700 IF A(12)=A(15) AND A(15)=A(18) TH 
EN Q=12: RETURN 

710 IF A(12)=A(14) AND A(14)=A(16) TH 
EN Q=12: RETURN 

720 IF A(21)=E THEN 750 

730 IF A(21)=A(24) AND A(24)=A (27) TH 
EN Q=21 : RETURN 

740 IF A(21)=A(23) AND A(23)=A(25) TH 
EN Q=21: RETURN 

750 IF A(4)=E THEN 780 

760 IF A(4)=A(5) AND A(5)=A(6) THEN Q 
=41: RETURN 

770 IF A(4)=A(13) AND A(13)=A (22) THE 
N (Q=4: RETURN 

780 IF A(13)=E THEN 800 

790 IF A(13)=A(14) AND A(14)=A(15) TH 
EN Q=13: RETURN 

800 IF A(22)=E THEN 820 

810 IF A(22)=A(23) AND A(23)=A(24) TH 
EN Q=22: RETURN 

820 IF A(6)=E THEN 840 

830 IF A(6)=A(15) AND A(15)=A (24) 
N Q=6: RETURN 

840 IF A(5)=E THEN 860 

850 IF A(5)=A(14) AND A(14)=A (23) 
N Q=5: RETURN 

860 IF A(7)=E THEN 900 

870 IF A(7)=A(8) AND A(8)=A(9) THEN Q 
=7: RETURN 

880 IF A(7)=A(16) AND A(16)=A (25? 
N Q=7: RETURN 

890 IF A(7)=A(14) AND A(14)=A(21) THE 
N Q=7: RETURN 

900 IF A(17)=E THEN 940 

910 IF A(16)=A(17) AND A(17)=A(18) TH 
EN Q=16: RETURN 


AND A(20)=A(21) TH 


AND A(11)=A(3) THE 
AND A(13)=A(7) THE 
AND A(22)=A (25) TH 


AND A(23)=A (27) TH 


THEN Q 


THE 


THE 


THE 


Oo0 O OOO O oooO 
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920 IF A(7)=A(17) AND A(17)=A(27) THE 

N Q=16: RETURN 

930 IF A(9)=A(17) AND A(17)=A(25) THE 

N Q=162 RETURN 

940 IF A(25)=E THEN 960 

950 IF A(25)=A(26) AND A(26)=A (27) TH 

EN Q=253 RETURN 

960 IF A(8B)=E THEN 980 

970 IF A(8)=A (17) AND A(17)=A4(26) THE 

N Q=81 RETURN 

980 IF A(9)=E THEN 1020 

990 IF A(9)=A(18) AND A(18)=A(27) THE 

N Q=9: RETURN 

1000 IF A(9)=A(15) AND A(15)=A(21) TH 

EN (Q=9: RETURN 

1010 IF A(9)=A(14) AND A(14)=A(19) TH 

EN (Q=9: RETURN 

1020 RETURN 

1030 REM 4430-16-36 6-16 36-34-36 36-36 36 36 DU EII A M6 dd EA 

1040 REM INTRODUCCION DEL MOVIMIENTO 
DEL JUGADOR 


1050 INPUT "CUAL ES TU JUGADA"; Y 

1060 IF Y<X1 OR Y>27 THEN 1050 

1070 IF A(Y)<>E THEN 1050 

1080 A(Y)>)=C 

1090 RETURN 

1100 REM 43436164646 16-16-162 

1110 REM MOVIMIENTO 

1120 M=1:1F A(1)<>E THEN 1210 

1130 IF A(1)=A(3) AND A(1)<>E THEN M= 
21 RETURN 

1140 IF A(2)=A(3) AND A(2)<>E THEN RE 
TURN 

1150 IF A(4)=A(7) AND A(4)<>E THEN RE 
TURN 

1160 IF A(5)=A(9) AND A(S)<>E THEN RE 
TURN 

1170 IF A(10)=A(19) AND A(10)<>E THEN 
RETURN 

1180 IF A(11)=A(21) AND A(11)<>E THEN 
RETURN 

1190 IF A(13)=A(25) AND A(13)<>E THEN 
RETURN 

1200 IF A(14)=A(27) AND A(14)<>E THEN 
RETURN 

1210 M=3: IF A(3)<>E THEN 1290 

1220 IF A(2)=A(1) AND A(2)<>E THEN RE 

TURN 

1230 IF A(11)=A(19) AND A(11)<>E THEN 
RETURN 

1240 IF A(15)=A(27) AND A(15)<>E THEN 
RETURN 

1250 IF A(6)=A(9) AND A(6)<>E THEN RE 
TURN 

1250 IF A(5)=A(7) AND A(5)<>E THEN RE 
TURN 

1270 IF A(12)=A(21) AND A(12)<>E THEN 
RETURN 

1280 IF A(14)=A(25) AND A(14)<>E THEN 
RETURN 

1290 M=4: IF A(4)<>E THEN 1330 


1300 
TURN 
1310 
TURN 
1320 IF A(13)=A(22) AND A(13)<>E THEN 
RETURN 

1330 M=5: IF A(5)<>E THEN 1390 

1340 IF A(1)=A(9) AND A(1)<>E THEN RE 


IF A(1)=A(7) AND A(1)<>E THEN RE 


IF A(5)=A(6) AND A(S)<>E THEN RE 


TURN 
1350 
TURN 
1360 
TURN 
1370 
TURN 
1380 IF A(14)=A(23) AND A(14)<>E THEN 
RETURN 
1390 M=6: 1F A(6)<>E THEN 1430 
1400 IF A(4)=A(5) AND A(4)<>E THEN RE 
TURN 
1410 
TURN 
1420 IF A(15)=A(24) AND A(15)<>E THEN 
RETURN 
1430 M=7:1F A(7)<>E THEN 1500 
1440 IF A(1)=A(4) AND A(1)<>E THEN RE 
TURN 
1450 IF 
RETURN 
1460 IF 
RETURN 
1470 IF 
TURN 
1480 IF 
TURN 
1490 IF 
RETURN 
1500 M=8: IF A(8)<>E THEN 1540 
1510 IF A(7)=A(9) AND A(7)<>E THEN RE 


IF A(2)=A(8) AND A(2)<>E THEN RE 
IF A(3)=A(7) AND A(3)<>E THEN RE 


IF A(4)=A(6) AND A(4)<>E THEN RE 


IF A(3)=A(9) AND A(3)<>E THEN RE 


A(13)=A(19) AND A(13)<>E THEN 
A(17)=A(27) AND A(17)<>E THEN 
A(8)=A(9) AND A(68)<>E THEN RE 
A(S)=A(3) AND A(S)<>E THEN RE 


A(16)=A(25) AND A(16)<>E THEN 


IF A(S)=A(2) AND A(S)<>E THEN RE 


IF A(17)=A(26) AND A(17)<>E THEN 
RETURN 
1540 M=9: IF A(9)<>E THEN 1620 
1550 IF A(7)=A(8) AND A(7)<>E THEN RE 
TURN 
1560 IF 
TURN 
1570 IF 
RETURN 
1580 IF 
RETURN 
1590 IF 
TURN 
1600 IF 
RETURN 
1610 IF 
RETURN 
1620 M=10:1F A(10)<>E THEN 1670 


A(6)=A(3) AND A(6)<>E THEN RE 
A(15)=A(21) AND A(15)<>E THEN 
A(17)=A(25) AND A(17)<>E THEN 
A(1)=A(5) AND A(1)<>E THEN RE 
A(18)=A(27) AND A(18)<>E THEN 


A(14)=A(19) AND A(14)<>E THEN 


1630 IF A(11)=A(12) AND A(11)<>E THEN 
RETURN 

1640 IF A(13)=A(16) AND A(13)<>E THEN 
RETURN 

1650 IF A(14)=A(18) AND A(14)<>E THEN 
RETURN 

1660 IF A(1)=A(19) AND A(1)<>E THEN R 

ETURN 


1670 Mre11:1F A(11)<>E THEN 1730 


1680 IF A(10)=A(12) AND A(10)<>E THEN 
RETURN 

1690 IF A(1)=A(21) AND A(1)<>E THEN R 
ETURN 

1700 IF A(3)=A(19) AND A(3)<>E THEN R 

ETURN 

1710 IF A(14)=A(17) AND A(14)<>E THEN 
RETURN 
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1720 IF A(2)=A(20) AND A(2)<>E THEN R 
ETURN 
1730 M=12:1F A(12)<>E THEN 1780 


1740 IF A(10)=A(11) AND A(10)<>E THEN 
RETURN 

1750 IF A(15)=A(18) AND A(15)<>E THEN 
RETURN 

17560 IF A(14)=A(16) AND A(14)<>E THEN 
RETURN 

1770 IF A(3)=A(21) AND A(3)<>E THEN R 
ETURN 


1780 M=20: IF A(20)<>E THEN 1820 

1790 IF A(19)=A(21) AND A(19)<>E THEN 
RETURN 

1800 IF A(23)=A(26) AND A(23)<>E THEN 
RETURN 

1810 IF A(2)=A(11) AND A(2)<>E THEN R 
ETURN 

1820 M=21: IF A(21)<>E THEN 1890 


1830 IF A(19)=A(20) AND A(19)<>E THEN 
RETURN 

1840 IF A(24)=A(27) AND A(24)<>E THEN 
RETURN 

1850 IF A(23)=A(25) AND A(23)<>E THEN 
RETURN 

1860 IF A(9)=A(15) AND A(9)<>E THEN R 
ETURN 

1970 IF A(3)=A(12) AND A(3)<>E THEN R 
ETURN 

1880 IF A(14)=A(7) AND A(14)<>E THEN 
RETURN 


1890 M=16: IF A(16)<>E THEN 1940 

1900 IF A(10)=A(13) AND A(10)<>E THEN 
RETURN 

1910 IF A(17)=A(18) AND A(17)<>E THEN 


RETURN 

1920 IF A(14)=A(12) AND A(14)<>E THEN 
RETURN 

1930 IF A(7)=A(25) AND A(7)<>E THEN R 
ETURN 


1940 M=17: 1F A(17)<>E THEN 2000 


1950 IF A(14)=A(11) AND A(14)<>E THEN 
RETURN 

1960 IF A(16)=A(18) AND A(16)<>E THEN 
RETURN 

1970 IF A(7)=A4(27) AND A(7)<>E THEN R 
ETURN 

1980 IF A(9)=4(25) AND A(9)<>E THEN R 
ETURN 

1990 IF A(8)=A(26) AND A(8)<>E THEN R 
ETURN 


2000 M=18: IF A(18)<>E THEN 2050 


2010 IF A(16)=A(17) AND A(16)<>E THEN 
RETURN 
2020 IF A(15)=A(12) AND A(15)<>E THEN 
RETURN 
2030 IF A(14)=A(10) AND A(14)<>E THEN 
RETURN 
2040 IF A(9)=A(27) AND A(9)<>E THEN R 


ETURN 

2050 M=19: 1F A(19)<>E THEN 2130 

2060 IF A(20)=A(21) AND A(20)<>E THEN 
RETURN 

2070 IF A(3)=A(11) AND A(3)<>E THEN R 
ETURN 

2080 IF A(7)=A(13) AND A(7)<>E THEN R 
ETURN 

2090 IF A(22)=A(25) AND A(22)<>E THEN 
RETURN 


2100 IF A(23)=A(27) AND A(23)<>E THEN 
RETURN 
2110 IF A(1)=A(10) AND A(1)<>E THEN R 


ETURN 

2120 IF A(14)=A(9) AND A(14)<>E THEN 
RETURN 

2130 M=13: IF A(13)<>E OR RND(1)>.2 TH 
EN 2210 


2140 IF A(14)=E AND A(15)=E OR A(16)= 
E AND A(10)=E THEN 2210 


2150 IF A(10)=A(16) AND A(10)<>E THEN 
RETURN 

2160 IF A(1)=A4(25) AND A(1)<>E THEN R 

ETURN 

2170 IF A(7)=A(19) AND A(7)<>E THEN R 

ETURN 

2180 IF A(2)=A(22) AND A(2)<>E THEN R 
ETURN 

2190 IF A(14)=A(15) AND A(14)<>E THEN 
RETURN 

2200 IF A(M)=E THEN RETURN 


2210 M=14: IF A(14)<>E THEN 2310 


2220 IF A(10)=A(18) AND A(10)<>E THEN 
RETURN 

2230 IF A(12)=A(16) AND A(12)<>E THEN 
RETURN 

2240 IF A(13)=A(15) AND A(13)<>E THEN 
RETURN 

2250 IF A(11)=A(17) AND A(11)<>E THEN 
RETURN 

2260 IF A(5)=A(23) AND A(S5)<>E THEN R 
ETURN 

2270 IF A(1)=A(27) AND A(1)<>E THEN R 
ETURN 

2280 IF A(3)=A(25) AND A(3)<>E THEN R 
ETURN 

2290 IF A(7)=A(21) AND A(7)<>E THEN R 
ETURN 

2300 IF A(9)=A(19) AND A(9)<>E THEN R 
ETURN 


2310 M=15: IF A(15)<>E THEN 2370 

2320 IF A(12)=A(18) AND A(12)<>E THEN 
RETURN 

2330 IF A(3)=A(27) AND A(3)<>E THEN R 
ETURN 


2340 IF A(9)=A(21) AND A(9)<>E THEN R 
ETURN 

2350 IF A(13)=A(14) AND A(13)<>E THEN 
RETURN 

2360 IF A(6)=A(24) AND A(6)<>E THEN R 
ETURN 


2370 M=22: 1F A(22)<>E THEN 2410 

2380 IF A(19)=A(25) AND A(19)<>E THEN 
RETURN 

2390 IF A(23)=A(24) AND A(23)<>E THEN 
RETURN 

2400 IF A(4)=A(13) AND A(4)<>E THEN R 
ETURN 

2410 M=23: IF A(23)<>E THEN 2470 


2420 IF A(22)=A(24) AND A(22)<>E THEN 
RETURN 

2430 IF A(20)=A(26) AND A(20)<>E THEN 
RETURN 

2440 IF A(19)=A(27) AND A(19)<>E THEN 
RETURN 

2450 IF A(25)=A(21) AND A(25)<>E THEN 
RETURN 

2460 IF A(5)=A(14) AND A(5)<>E THEN R 


ETURN 


o. oO 


o.0 Oo O 


o. oO 


0000 O OOOO OOoOoA OOO 


oOo0 OOOO OO O O OOoOo0Os.0osOomOoo 


2470 M=24: IF A(24)<>E THEN 2510 
RETURN 
RETURN 


ETURN 
2510 M=25: IF A(25)<>E THEN 2580 


RETURN 

ETURN 

ETURN 

RETURN 

2560 IF A(23)=A(21) 
RETURN 


ETURN 
2580 M=26: IF A(26)<>E THEN 2620 


RETURN 
RETURN 


ETURN 
2620 M=27: 1F A(27)<>E THEN 2700 


RETURN 

RETURN 

ETURN 

ETURN 

2670 IF A(19)=A (23) 
RETURN 

ETURN 


ETURN 
2700 M=2: 1F A(2)<>E THEN 2760 


ND A(8)=E THEN 2760 
TURN 

RETURN 

TURN 


2760 IF RND(1)>.7 THEN 2780 


2480 IF A(21)=A(27) AND A(21)<>E THEN 
2490 IF A(22)=A(23) AND A(22)<>E THEN 


2500 IF A(6)=A(15) AND A(6)<>E THEN R 


2520 IF A(19)=A(22) AND A(19)<>E THEN 
2530 IF A(1)=A(13) AND A(1)<>E THEN R 
2540 IF A(9)=A(17) AND A(9)<>E THEN R 
2550 IF A(26)=A(27) AND A(26)<>E THEN 
AND A(23)<>E THEN 


2570 IF A(7)=A(16) AND A(7)<>E THEN R 


2590 IF A(23)=A(20) AND A(23)<>E THEN 
2600 IF A(25)=A(27) AND A(25)<>E THEN 


2610 IF A(8)=A(17) AND A(8)<>E THEN R 


2630 IF A(25)=A(26) AND A(25)<>E THEN 
2640 IF A(24)=A(21) AND A(24)<>E THEN 
2650 IF A(3)=A(15) AND A(3)<>E THEN R 
2660 IF A(7)=A(17) AND A(7)<>E THEN R 
AND A(19)<>E THEN 
2680 IF A(9)=A(18) AND A(9)<>E THEN R 


2690 IF A(1)=A(14) AND A(1)<>E THEN R 


2710 IF A(1)=E AND A(3)=E OR A(5)=E A 
2720 IF A(1)=A(3) AND A(1)<>E THEN RE 
2730 IF A(11)=A(20) AND A(11)<>E THEN 
2740 IF A(5)=A(8) AND A(5)<>E THEN RE 
2750 REM 146164 36-26 96-006 2266H M6 HAM IIA 


2770 IF A(14)=E THEN M=14: RETURN 


2780 


IF A(5)=E THEN M=5: RETURN 


2790 IF A(23)=E THEN M=23: RETURN 

2800 M=0 

2810 Z=0 

2820 Z=Z+1 

2830 M=D(INT(RND(1)*12)+1) 

2840 IF A(M)=E THEN RETURN 

2850 PRINT 2; 

2860 IF Z<100 THEN 2820 

2870 Z=0 

2880 M=0 

2890 Z=Z+1 

2900 M=INT(RND(1)+*27)+1 

2910 IF A(M)=E THEN RETURN 

2920 IF Z<500 THEN 2900 

2930 PRINT:PRINT "HAY UN EMPATE!" 

2940 FOR T=1 TO 2000: NEXT T 

2950 M=99 

2960 RETURN 

2970 GOTO 3030 

2980 REM 3636-263626-16-36 46-24-26 362630 226 

2990 REM FINAL DEL JUEGO 

3000 PRINT 

3010 IF A(Q)=B THEN PRINT "GANO YO!": 

MS=MS+1 b 

3020 IF A(Q)=C THEN PRINT "TU GANAS!" 

¿ HS=HS+1 

3030 PRINT 

3040 IF Q=0 THEN 70 

3050 PRINT "MI PUNTUACION ES: "MS 

3060 PRINT "TU PUNTUACION ES: "HS 

3070 FOR T=1 TO 2000:NEXT T 

3080 FOR Z=1 TO 27 

3090 A(Z)=E 

3100 NEXT Z 

3110 GOTO 30 

3120 REM 33646364646 3616-36 36-40-26 3646 

3130 REM INICIALIZACION 

3140 CLS 

3150 DEFINT A-Z 

3160 DIM A(27),D(12) 

3170 B=ASC("X"):REM FICHA DEL ORDENAD 

OR 

3180 C=ASC("0"):REM FICHA DEL JUGADOR 

3190 E=ASC("."”)2REM DEMARCACION 

3200 M=0:0=0 

3210 HS=0:MS=0: REM PUNTUACION JUGADOR 
, PUNTUACION DE LA MAQUINA 

3220 FOR T=1 TO 12 

3230 READ D(T) 

3240 NEXT T 

3250 GOTO 3080 

3260 DATA 1,3,7,9,19,21,25,27,10,12,1 

6,18 


¡ar rr ar rr dr rr 


OO Oo Oo Oo 
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145 


16 


Los 
elefantes 
azules 


En este programa, particularmente despiadado, tú representas el papel 
de un cazador del año 2200. Tu presa son los elefantes, que en esta época 
ya sólo se crían para su conservación en los zoos o en reservas en donde 
sólo las personas muy ricas, como tú, pueden cazarlos en safaris organi- 
zados. 

En realidad, en tu cacería utilizas el último modelo de rayo laser 
antielefantes, pero, en deferencia a la tradición, aquí simplemente lo llama- 
remos pistola “mata-elefantes”. 

Para darles a estos pobres animales, que tras muchos años de cría 
selectiva ya nacen de color azul, una oportunidad, la reserva en la que 
viven tiene una peculiar característica: el cazador no puede entrar en ella, 
ni tampoco ve a los animales desde fuera. Todo lo que puede hacer es 
disparar el laser desde una de las posiciones numeradas o puertas que hay 
alrededor y luego, a partir de la información que le proporciona el ordena- 
dor relativa al lugar por el que el rayo laser ha salido de la reserva, 
intentar deducir dónde se encuentran. Los únicos elefantes cazados son 
aquellos cuyas posiciones han sido identificadas. 

Los elefantes llevan, además, un tipo de chaleco antirrayos laser que 
desvía todos los tiros que no den directamente en el blanco. Al inicio del 
programa el ordenador te preguntará cuántos elefantes quieres que haya 
en la reserva: 
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a) 


Cuantos elefantes (de 2 a 10)? 4 


PON 

o] Elefante 1 situado 
Elefante 2 situado 

[) Elefante 3 situado 

¡A 


Elefante 4 situado 


Después aparecerá un mapa de la reserva con las posiciones o puertas 
numeradas a su alrededor: 


Po) 1234567 

(Y, .<oeo..nons 
Po a 16 
17 ..o.ooo.. 24 


PAN 25 .QS9 «r£ £óonao.o sos 32 
E ies 20 
¡ES Ao ara 8 
a A 
AN 1556666 / 
lu) 890123 


Te toca a ti entonces introducir el número de la posición desde la que 
quieres disparar: 


EARREN Desde que entrada del recinto 
E quieres disparar tu valioso 
ML) laser mataelefantes? 2 


El rayo laser se dirige a su objetivo. Una fracción de segundo después 
sale de la reserva y, partiendo del número de la posición por la que ha 
salido, tienes que calcular dónde se esconden los elefantes: 


Ese fue el disparo No. 1 


IZ3IAO67N 
Vo aia 15 
17 ..oooo... 24 
25 .[|Í£oe eo... .. « 32 
33 2n....anoan. 40 
4 ........ 48 
49 ...... «. 56 

13536666/ 

890123 


Has disparado desde 2 


VVV > LASER DESVIADO Xx 
ZAS' el rayo se escapo por 25 


Sigues disparando y, con cada disparo, sabes un poco más sobre la 


posición de los elefantes: 


Ese fue el disparo No. 7 


IZIADO6TN 
PY rn. .oono. 16 
17 .onoono. 24 
23 ooo sn... 32 
33 ........ 40 
41 ...noo.. 48 
49 .onoo. no. J6 

NM5356666/ 

890123 


Has disparado desde 5 


VWV ...LASER ABSORBIDO... 


14 


[0] 
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Cuando creas que ya sabes cuál es la posición de cada elefante, intro- 
duce un cero en lugar de otro número: 


Desde que entrada del recinto 
quieres disparar tu valioso 
laser mataelefantes? O 


) 


INTRODUCE TU HIFOTESIS 1 7 34 
INTRODUCE TU HIPOTESIS 2 ? 21 
INTRODUCE TU HIFPOTESIS 3 7 43 
INTRODUCE TU HIPOTESIS 4 ? 28 
La hipotesis numero 2 es correcta 
La hipotesis nunero 4 es correcta 


00 


Has encontrado 2 elefantes... 


Finalmente, tal vez decidas abandonar la cacería. Para ello sólo tienes 
que introducir —1 cuando el ordenador te pregunte desde qué puerta 
quieres disparar: 


1234567 
A co. o. ... 16 
17 2..oooon. 24 
........ 32 
........ 40 
n=... ..... 48 


000 


e 56 
“DE 1556666/ 
890123 


Desde que entrada del recinto 
quieres disparar tu valioso 
laser mata elefantes? -1 


7 


Los elefantes se escondian en: 


) 


21 35 28 43 20 


Esta es una vista de la reserva tomada desde arriba en la que aparecen 
los números que componen el interior de la misma: 


A e o ro 


Ass 
a 
hi+> 
aia 
Sis 
ei 

- 
E 
L) 


TES 
GQ Ur 
FS 
N Ur 
QQ Mm 
ho 
ES 
GQ 
NN 
Os On 
Nin 
Y 0 
Nu 
om O 
Qu 
O — 
Hh Y 
Sm 
$e Y 
Om 


rr rra 


A 

iu 
Or 1 Om 
Gai 
NN 
> 10 
S1S 
SN 1 
-—- | 
1 0 
Nin 
SN 1% 
S1g9 


Los rayos laser siguen unas reglas estrictas cuando rebotan en los 
escondites de los elefantes. Si el laser da directamente en el blanco matan- 
do a un elefante, será absorbido por éste y ya no saldrá de la reserva. 
Cuando se queda a una casilla del blanco, toma una desviación de 90 
grados antes de salir. Por tanto, si había un elefante escondido en la 
posición 27 y el cazador decidió disparar desde la puerta 17, el rayo irá 
hasta la posición 18 para posteriormente dar un giro de 90 grados y, 
pasando por la posición 10, salir por la puerta 2. Para conocer exactamen- 
te el comportamiento de los rayos laser no tienes más que fijarte en los 
disparos que aquí han aparecido, poniendo especial atención en la direc- 
ción de las flechas (V significa que el rayo va hacia abajo, < hacia la 
izquierda, > hacia la derecha y ” hacia arriba) y en palabras tales como 


DESVIADO: 
IZ34567N —= 
Q ..o0..oÁo%< mes ... 165 [) 


1356666/ 


890123 E) 
UY) 


Has disparado desde 41 


PAN 
> *> LASER DESVIADO <x+** 
V el rayo se escapo por 58 


OO OOOOOO OO Oo 0 O0OuoquoOqy.y0os O.OoO O 


O 


O 


Y este es el listado con el que puedes coger por sorpresa a los elefantes 


en su propia casa: 


1 REM 036140061636 dd 362 DA METETE 
2 REM + + 
3 REM * LOS ELEFANTES AZULES * 
4 REM + * 
5 REM desta 06160616 9616 6 16 6166 HH HEM 
10 REM 
20 GOSUB 1170:REM INICIALIZACION 
30 GOSUB 950: REM IMPRESION RECINTO 
40 GOSUB 790: REM 
INTRODUCCION MOVIMIENTO 
50 IF M=0 THEN GOSUB 120:GOTO 30: REM 
HIPOTESIS 
60 IF M=-1 THEN 340:REM ABANDONO 
70 GOSUB 950: REM IMPRESION RECINTO 
80 GOSUB 420:REM RESULTADO 
90 FOR Y=1 TO 1000:NEXT Y 
100 GOTO 30 
110 REM 30364616 46 26-26-3616 36 46-26-3626 30-46 30H 
120 REM INTRODUCE HIPOTESIS 
130 PRINT 
140 FOR J=1 TO E 
150 PRINT TAB(J)5 "INTRODUCE TU HIPOTE 
SIS"J5 
160 INPUT C(J) 
170 NEXT J 
180 PU=0 
190 FOR J=1 TO E 
200 FOR K=1 TO E 
210 IF C(J)=B(K) THEN PRINT "La hipot 
esis numero"J"es correcta":C(J)=0:PU= 
PuU+1 
220 NEXT K 
230 NEXT J 
240 PRINT 
250 M=-99 
260 FOR Y=1 TO 500:NEXT Y 
270 IF PUX>O THEN PRINT "Has encontra 
do"PU"elefantes..." 
280 FOR Y=1 TO 2000:NEXT Y 
290 IF PUX>E THEN RETURN 
300 PRINT "Los has encontrado a todos 
s. 
310 PRINT:PRINT 
320 END 
330 REM 34443646164 
340 REM ABANDONO 
350 PRINT "Los elefantes se escondian 
en:" 
360 PRINT 
370 FOR J=1 TO E 
380 PRINT B(J)5 
390 NEXT J 
400 END 
410 REM 33636 36-436 16 163 
420 REM RESULTADO 
430 Q=-1 
440 IF M<9 THEN Q=8 
450 IF M>56 THEN Q=-8 
460 IF M=9 OR M=17 OR M=25 OR M=33 OR 
M=41 OR M=49 THEN Q=1 
470 IF M+0<10 OR M+Q>55 THEN PRINT "E 
1 rayo laser salio del recinto por":P 
RINT M+Q: M=-99: RETURN 
480 FL=0 


“BIEN HECHO!" 
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490 FOR T=1 TO 10 

500 IF D(T)=M+Q THEN FL=M+Q 

S10 NEXT T 

520 IF FL<>0 THEN PRINT "ZAS! el rayo 
se escapo por "FL:M=-99: RETURN 

530 M=M+Q 

540 REM BORRA LAS CUATRO LINEAS 


SIGUIENTES CUANDO DOMINES EL JUEGO 
IF Q=1 THEN PRINT "> "3 
IF Q=-1 THEN PRINT " <"; 
IF 0=8 THEN PRINT "Y "3 
IF Q=-8 THEN PRINT" "3 
590 REM sx ABSORCION 1 
600 IF A(M)=9 THEN PRINT "...LASER AB 
SORBIDO...":M=-99: RETURN 
610 REM xx DESVIACION 1. 
620 X=7:Y=-9 
630 IF Q=8 THEN Y=9 
640 IF Q=-8 THEN X=-7: Y=-9 
650 IF Q=1 THEN X=-7: Y=9 
660 IF M+X<1 OR M+X>64 OR M+Y<1 OR M+ 
Y>64 THEN 680 
670 IF A(M+X)=9 AND A(M+Y)=9 THEN PRI 
NT " >> DESVIADO <<":2Q=-Q:GOTO 470 
680 REM sx DESVIACION 
690 IF M+X<1 OR M+X>54 THEN 710 
700 IF A(M+X)=9 THEN PRINT " -> LASE 
R DESVIADO <-":GOTO 740 
710 IF M+Y<1 OR M+Y>64 THEN 470 
720 IF A(M+Y)=9 THEN PRINT " %+x*> LASE 
R DESVIADO <**":GOTO 760 


550 
560 
570 
580 


730 GOTO 470 

740 IF ABS(Q)=8 THEN Q=Q0/8 ELSE 0=0+*8 

750 GOTO 470 

760 IF ABS(Q)=8 THEN Q=-Q/8 ELSE Q=-Q 

+8 

770 GOTO 470 

780 REM 46416 36 36-46 36-26-36 26-46-36 dE M6 6H III IA 

790 REM INTRODUCCION DE MOVIMIENTO 

800 PRINT "Desde que entrada del reci 

nto" 

810 PRINT "quieres disparar tu valios 

o" 

820 PRINT "laser mataelefantes"; 

830 REM No puedes hacer fuego desde 
el lal 8 

840 REM o desde el 57 al 644 

850 INPUT M 

860 IF M<1 THEN RETURN 

870 FL=0 

880 IF (M<10 OR M>55) AND M<>1 AND M< 


>8 AND M<>57 AND M<>64 THEN FL=1 
890 FOR T=1 TO 10 

900 IF M=D(T) THEN FL=1 

910 NEXT T 

920 IF FL=0 THEN 850 

930 RETURN 

940 REM ae16a6 1626-26 6-66 6-06 06-16 6 26M IA 

950 REM IMPRESION DEL RECINTO 

960 CLS 

970 MOV=MOV+.5 

980 PRINT:PRINT:PRINT 

990 IF INT(MOV)<>PREV THEN PRINT "Ese 
fue el disparo No." INT(MOV):PRINT 


OOO OOO OO OOOO 0oOoOooOOOQ)O vou6€éoOoOo os oso 


ELSE PRINT:PRINT 

1000 PRINT " 1234567M" 

1010 PRINT " canas 

1020 PRINT " 9"; 

1030 FOR T=1 TO 5 

1040 PRINT " .......- "5STRS(D(T+5)) 
1050 PRINT STR$(D(T))5 

1060 NEXT T 


1240 IF E<x2 OR E>10 THEN 1230 
1250 DIM A(64),B(E),C(E) 

1260 FOR Z=1 TO E 

1270 M=INT(RND(1)*29)+18 

1280 FL=0 

1290 IF A(M)<>0 THEN 1270 
1300 FOR T=1 TO 30 

1310 IF M=D(T) THEN FL=1 


1070 PRINT " .....o.. 56” 1320 NEXT T 

1080 PRINT " .o.oono.” 1330 IF FL=1 THEN 1270 

1090 PRINT " A556666/" 1340 PRINT 

1100 PRINT " 890123 " 1350 PRINT TAB(Z);"Elefante"Z"situado 


1360 B(Z)=M 
1370 A(M)=9 
1380 NEXT Z 


1110 PRINT:PRINT 

1120 PREV=MOV 

1130 IF M<>-99 THEN PRINT "Has dispar 
ado desde"M:PRINT 


OouoOoDo0omOo0 


oO OOOoOoOoO0osomOo0 


O 1140 RETURN 1390 M=-99 
1150 END 1400 MOV=0 
1160 REM 4616-36-16-36-26-26 36-24-1634 304 1410 PREV=0 
O 1170 REM INICIALIZACION 1420 INPUT AS 
1180 CLS 1430 RETURN 
1190 DIM D(30) 1440 DATA 17,25,33,41,49 
O 1200 FOR T=1 TO 30 1450 DATA 16,24,32,40, 48 
1210 READ D(T) 1460 DATA 10,11,12,13,14,15 
1220 NEXT T 1470 DATA 18,26,34,42,50,51 
O 1230 INPUT "Cuantos elefantes (de 2 a 1480 DATA 52,53,54,55,47,39 


10)"3E DATA 31,23 
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17 
Alfabética 


Este es un juego en dos partes. La primera de ellas es muy simple, pero 
la velocidad con la que soluciones el sencillo problema planteado (descubrir 
en qué letra del alfabeto está pensando el ordenador) dicta el número de 
intentos de que dispondrás para hallar la solución de la segunda parte. 

La segunda parte consiste en algo parecido al MASTERMIND, salvo 
que el código que hay que adivinar, en lugar de estar compuesto por 
colores, aquí está formado por las seis primeras letras del alfabeto. 

Este código podría ser ABCD, FDEA, o incluso FFFFF, o cualquier 
otra de las muchas combinaciones posibles que pueden darse entre esas 
seis letras. 

Cuando hayas introducido tu hipótesis, el ordenador pasará a evaluar- 
la. Te dará un signo más (+) por cada letra que forme parte del código 
pero no esté en la posición adecuada. Así pues, si el código del ordenador 
era ABCA y tú introdujiste CEEF, tendrás un signo +. Cuando la letra o 
letras, además de formar parte del código, ocupan en el mismo la posición 
adecuada, tendrás un asterisco (*). Por tanto, tendrás un * si has introdu- 
cido un código como AEEF y el del ordenador era ABCA. 

Esta es la primera parte del juego en acción: 


Para empezar nuestro juego tienes que AS 
adivinar la letra del alfabeto en la ¡ 
que estoy pensando. Cuanto antes la ¡a 
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adivines, mas posibilidades tendras 
de solucionar los problemas plantea- 
dos en la segunda parte del juego... 


1) 


TEME IO TE TEME IE TEJE IE EI IE FE DE DE IE IE IET TE DEE IE IE DE DE DEI IE IEEE 


L) 


Bien, introduce tu hipotesis No. 1 ? 
E 


TEIDE ME DE IE DET IE DEI DEI IE ETE DE EDI DE IIED IE DE IE IE DE II IE DEMI JE 


) 


No, no es E 
Intentalo mas hacia el final 
del alfabeto 


1) 


TITO 6 TE T6-DE DE DE DERE DETER III IE IE DEI E IE DE IE DE DERE DEI HE IE IE 


Bien, introduce tu hipotesis No. 2? 
V 


W 


RITO REID IEEE MEE IE M III II MIE III IE IE E 


e 


No, no es Y 
Intentalo mas hacia el principio 


del alfabeto 


) 


TEDE METIO DE DEI HERE DE IIED DEI IE DEI IE IDE MIE IDEM DEM DEI 


Bien, introduce tu hipotesis No. 3? 
M 


L) 


FETO DE TE TE ETE DE IE IE DE DE EDO IE IET IE IEEE IE IE IE IE EII 


No, no es M 
Intentalo mas hacia el final 
del alfabeto 


E 


FEIEIE IE SETE TE MEE DE DEI MEE IE DIE DE DE TEIDE DE DIE DE DEI IE IEEE IEEE 


|] 
LJ) 


Bien, introduce tu hipotesis No. 4 ? 
R 
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A 


L 
¡E 


No, no es R 
Intentalo mas hacia el principio 


del alfabeto 


L 
LJ) 


FIDE IMEI DE IEEE DEMI IE DE IE IET DE DEI II DE ME IIED IE DEI JE 6 dE 


Bien, introduce tu hipotesis No. 52? 


q ES) 
Si, efectivamente estaba pensando en Y) 
la P 


TEIDE DD DE DE IE DEI DEDO IED FE TE IE DE DE DE DE DE DE DE DE DE DE DE DE TE IE IEEE 


8 
EA 


Te ha costado S intentos 


FMI TE DEI IE TE IE DEE HE ME DE IE IE IE DE IE IE IE IE E IE IE TE DE IE IE IE DEI IE 6 6 dE 


Esto significa que tienes 15 
oportunidades de resolver el segundo 
problema que te voy a plantear 


1) 


Y aquí tenemos la segunda parte, que, como enseguida verás, es mucho 
más difícil: 


A 


] 


En la segunda parte de ALFABETICA, 
cuentas com 15 oportunidades para 
calcular un codigo compuesto por 
cuatro letras escogidas entre 

A, B, C, D, y F 


) 


TITO TIT DE TE TE IE DE DE DE DE DE TED TE TE DE DE DE IE DE DE IE IE IE IE IE IE IE IE IE E 


Te dare un signo + por cada letra que 
forme parte del codigo, pero que este 
mal situada dentro de la secuencia 
del mismo y un signo * por cada letra 
que este bien situada dentro de la 
secuencia 


ONO 
UJ UL) 


TITO IE III OIE IE IE FETO TE DE TE IE TE DE DE DE DE IET DE IE IE TE ETE IE JE DEJE JE 


15 


5] 
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Escoge entre: ABCDEF 
Introduce el intento No. 1 


[) 


2 AAAA 
=] 
E MARCA: R 
¡2 —)| * 


Introduce el intento No. 2 


o Penso 
MARCA: 
e 


Introduce el intento No. 3 
? ACCC 

MARCA: 

* 


00 


Introduce el intento No. 4 


“? ADDD 
[) MARCA: 
FR, *o* 


Introduce el intento No. 5 


A MARCA: R 
Y + + 


Introduce el intento No. 4 
? AEDE 

MARCA: 

LA KR 


Lo has conseguido en 6 intentos! 
El codigo era AEDE 


Este es el listado que hará posible que puedas jugar a ALFABETICA 
con tu ordenador: 


O 
o) 
Oo 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 


O 


O 


1 REM 4636363626 96-36 36-36 3636361546 
2 REM + - 
3 REM +* ALFABETICA + 
4 REM + » 
S REM 144636143016 46 316341626352 

REM 

REM 

REM UTILIZA LAS MAYUSCULAS 

REM 

CcLs 

D=0:C=1 

A=65+INT(RND(1)+*26) 

PRINT:PRINT 

PRINT "Para empezar nuestro juego 
tienes que"; 
100 PRINT "adivinar la letra del alfa 
beto en la" 
110 PRINT "que estoy pensando. Cuanto 
antes la" 
120 PRINT "adivines, mas posibilidade 
s tendras" 
130 PRINT "de solucionar los problema 
s plantea-" 
140 PRINT "dos en la segunda parte de 
1 juego...” 
150 GOSUB 930 
160 PRINT "Bien, introduce tu hipotes 
is No. "C3 
170 INPUT Z$ 
180 IF ASC(Z$)=A THEN 260 
190 GOSUB 930 
200 PRINT "No, no es "3Z$ 
210 PRINT TAB(5)3"Intentalo mas hacia 
el "3 
220 IF ASC(Z$)<A THEN PRINT "final" E 
LSE PRINT "principio" 
230 PRINT TAB(13);"del alfabeto" 
240 C=C+1 
250 GOTO 150 
260 PRINT "Si, efectivamente estaba p 
ensando en la "3CHR$ (A) 
270 GOSUB 930 
280 PRINT TAB(9);"Te ha costado"C"int 
entos" 
290 GOSUB 930 
300 OP=20-C 
310 PRINT "Esto significa que tienes" 
OP*PRINT "oportunidades de resolver e 
1 segundo" 
320 PRINT "problema que te voy a plan 
tear" 
330 GOSUB 930 
340 PRINT "En la segunda parte de ALF 
ABETICA, " 
350 PRINT "cuentas con"0P"oportunidad 
es para" 
360 PRINT "calcular un codigo compues 
to por " 
370 PRINT "cuatro letras escogidas en 
tre":PRINT TAB(10)3"A, B, C, D, y F” 
380 GOSUB 930 
390 PRINT "Te dare un signo + por cad 
a letra que"j3 
400 PRINT "forme parte del codigo, pe 


ro que este"; 

410 PRINT "mal situada dentro de la s 
ecuencia" 

420 PRINT "del mismo y un signo * por 
cada letraque este bien situada dent 
ro de la secuencia" 

430 GOSUB 930 

440 DIM A(4),B(4) 

450 Ys$="" 

460 FOR Z=1 TO 4 

470 B(Z)=INT(RND(1)*6)+1 

480 Y$=Y$+CHR$ (64+B(7)) 

490 NEXT Z 

500 L=0 

510 PRINT "Escoge entre: ABCODE F" 
520 L=L+1 

530 PRINT "Introduce el intento No. "L 

540 INPUT X$:R$=X$ 

550 IF LEN(X$)<>4 THEN 540 

560 K=0 

570 J=K 

580 FOR Z=1 TO 4 

590 A(Z)=ASC(X$)-64 

600 B(Z)=ABS(B(Z)) 

610 IF A(Z)<>B(Z) THEN 650 

620 K=k+1 

630 A(Z)=0 

640 B(Z)=-B(Z) 

650 X$=RIGHTS(XS, (LEN(XS)-1)) 

660 NEXT Z 

670 FOR H=1 TO 4 

680 Z=1 

690 IF A(H)<>B(Z) THEN 730 

700 J=J+1 

710 B(Z)=-B(Z) 

720 GOTO 740 

730 IF 72<4 THEN Z=Z+1:GOTO 690 

740 NEXT H 

750 PRINT "“*"“e“RORORORORORC RARA 

760 PRINT "MARCA: "¿R$ 

770 1F K=0 THEN 810 

780 FOR Z=1 TO K 

790 PRINT " *";z 

800 NEXT Z 

810 IF J=0 THEN 850 

820 FOR Z=1 TO J 

830 PRINT ”" +*%3 

840 NEXT Z 

850 PRINT:PRINT 

860 IF K<4 AND L<=O0P THEN 520 

870 IF K=4 THEN PRINT "Lo has consegu 
ido en"L"intentos!" 

880 PRINT "El codigo era ";3Ys$ 

890 GOSUB 930 

900 PRINT "Preparado para una nueva p 

artida de":PRINT TAB(15)3"ALFABETICA" 

910 GOSUB 930 

920 RUN 

930 FOR Q=1 TO 1200: NEXT Q 

940 PRINT 

950 PRINT "443636 2626-36-16 36 6D ME DEI III 

RÁN 

960 PRINT 

970 RETURN 


oOo0O0O OOO OOOOOOo OO OoOoOoO0o.0w0os0os<s.oeom.w 
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18 


Detective 


Eres el DETECTIVE Q, el hombre que ha sido llamado para resolver 
el misterioso asesinato en la mansión. 

Los hechos sucedieron así. Las seis personas que en ese momento 
ocupan la mansión han cenado juntas en el comedor. La cena acaba justo 
antes de las ocho y los comensales deciden pasar el resto de la velada 
explorando la mansión por separado y volverse a reunir a medianoche 
para tomar una copa antes de irse a dormir. 

Al sonar las doce campanadas los huéspedes acuden al lugar de re- 
unión, todos menos uno. Tras una apresurada búsqueda por la mansión 
descubren su cadáver en una de las estancias: 


EL CUERPO DE ARTHUR MOMENT al 
HA SIDO DESCUBIERTO TENDIDO EN EL E 
SUELO DEL ESTUDIO ¡a 


Es ahora cuando haces tu aparición en escena. Tienes que descubrir 
quién es el asesino y la hora en la que tuvo lugar el asesinato. Cuando 
hayas interrogado a tantos cuantos huéspedes juzgues conveniente, puedes 
hacer una acusación. Solamente se te permite hacer dos acusaciones y si, 
tras estos dos intentos, todavía no hubieras dado con el autor del asesina- 
to y la hora en la que éste tuvo lugar, el ordenador se encargará de decirte 
quién fue el que cometió un hecho tan vil. 
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Para referirte a los huéspedes utilizas la primera letra de su nombre de 
pila, o de su cargo, los cuales, por una feliz coincidencia, son muy fáciles 
de recordar: 


A) Arthur Moment 
B) Betty Crumb 

C) Caroline Forsooth 
D) Derek Lockjaw 
E) Emma Hornswipe 
F)  Fatty Thompson 
G) General Bluff 


El ordenador te preguntará si deseas interrogar a un sospechoso o 
hacer una acusación: 


INTRODUCE 1 SI QUIERES INTERROGAR A 
UN SOSPECHOSO O 2 SI QUIERES HACER 
UNA ACUSACION 

2d 


1 


Tienes que indicar no sólo la persona a la que quieres interrogar (lo 
que haces, como acabamos de decir, introduciendo la inicial de su nombre 
de pila), sino también la hora (8, 9, 10 u 11) sobre la que deseas pregun- 
tarle: 


A QUIEN QUIERES INTERROGAR”? EMMA 


_ 


EMMA HORNSWIPE SE HA PREPARADO 


SOBRE QUE HORA QUIERES TENER 
INFORMACION? 10 


1) 


EMMA HORNSWIPE RESPONDE: 

ESTABA EN LAS HABITACIONES DE LOS 
CRIADOS 

VI A ARTHUR MOMENT EN LA COCINA 
VI A FATTY THOMPSON EN LA SALA DE 
BAILE 


Jl 


> QUIERES HACER 
UNA ACUSACION (S/N)N 


Dispones para tu investigación de un plano de la casa que te resultará 
muy útil a la hora de determinar dónde estaba cada uno en el momento 
del crimen. Has de ir tomando notas sobre lo que dice cada persona en 
relación con el lugar en el que se encontraba cuando sucedió el crimen y a 
quién vio en las otras habitaciones, a fin de determinar las posibles 
discrepancias entre unas historias y otras. Justo antes del listado hay un 


gráfico que puede servirte de modelo a este efecto. 
A QUIEN QUIERES INTERROGAR? FATTY 
FATTY THOMPSON SE HA PREPARADO 
SOBRE QUE HORA QUIERES TENER 
INFORMACION? 10 
FATTY THOMPSON RESPONDE: 

ESTABA EN LA SALA DE BAILE 


> QUIERES HACER 
UNA ACUSACION (S/N)? N 


A QUIEN QUIERES INTERROGAR”? GENERAL 
GENERAL BLUFF SE HA PREPARADO 
SOBRE QUE HORA QUIERES TENER 
INFORMACION? 10 
GENERAL BLUFF RESPONDE: 

ESTABA EN EL INVERNADERO 


> QUIERES HACER 
UNA ACUSACION (S/N)? N 


A QUIEN QUIERES INTERROGAR? DEREK 


DEREK LOCKJAW SE HA PREPARADO 


— 
O 
A) 
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SOBRE QUE HORA QUIERES TENER 
INFORMACION? 10 


L) 


DEREK LOCKJAW RESPONDE: 

ESTABA EN EL ESTUDIO 
VI A FATTY THOMPSON EN 
LA SALA DA BAILE 


1) 


> QUIERES HACER 
UNA ACUSACION (S/N)N 


O 


Como ves, se trata de averiguar quién está mintiendo y, en consecuen- 
cia, declararle autor del asesinato. Sólo te mentirá el asesino y sólo en 
relación con la hora en la que tuvo lugar el asesinato (la mentira será. 
además, relativamente consistente, al menos en ciertos aspectos). No obs- 
tante, los otros huéspedes, aunque no mienten en lo que dicen, tampoco te 
son especialmente útiles, pues no siempre te dirán toda la verdad. Es decir, 
no tendrán ningún inconveniente en decirte el lugar en el que se encontra- 
ban en un momento dado, pero no se mostrarán tan sinceros con respecto 
a quién estaba con ellos (lo que, en mi opinión, es bastante comprensible 
en ciertas circunstancias), ni tampoco en cuanto a las personas que vieron 
en las otras habitaciones. 


A QUIEN QUIERES INTERROGAR? BETTY 


a 
e, 


BETTY CRUMB SE HA PREPARADO 


SOBRE QUE HORA QUIERES TENER 
INFORMACION? 10 


a 
e, 


BETTY CRUMB "RESPONDE: 
ESTABA EN EL COMEDOR 
VI A DEREK LOCKJAW EN EL ESTUDIO 


O 


> QUIERES HACER 
UNA ACUSACION (S/N)? N 


| 
EA 


Finalmente, se supone que has recogido información suficiente para 
poder hacer una acusación sin temor a equivocarte: 


A QUIEN QUIERES INTERROGAR? EMMA 


O 


EMMA HORNSWIPE SE HA PREFARADO 


SOBRE QUE HORA QUIERES TENER 
INFORMACION? 11 


EMMA HORNSWIPE RESPONDE: 

ESTABA EN EL ESTUDIO 
BETTY CRUMB ESTABA CONMIGO 
CAROLINE FORSOOTH ESTABA CONMIGO 


JO 


ú 


> QUIERES HACER 
UNA ACUSACION (S/N)? N 


1] 


A QUIEN QUIERES INTERROGAR? BETTY 


[] 


BETTY CRUMB SE HA PREPARADO 


[) 


SOBRE QUE HORA QUIERES TENER 
INFORMACION? 11 


BETTY CRUMB RESPONDE: 
YO ESTABA EN EL DORMITORIO 
DEL DUENO DE LA CASA 


O 


> QUIERES HACER 
UNA ACUSACION (S/N)? N 


Ñ 


A QUIEN QUIERES INTERROGAR? CAROLINE 


A 


CAROLINE FORSOOTH SE HA PREPARADO 


| 
LL) 


SOBRE QUE HORA QUIERES TENER 
INFORMACION? 11 


16 


al 
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CAROLINE FORSOOTH RESPONDE: 
ESTABA EN EL ESTUDIO 

BETTY CRUMB ESTABA CONMIGO 

EMMA HORNSWIPE ESTABA CONMIGO 


1) 


> QUIERES HACER 
UNA ACUSACION (S/N)? S 


L] 


Recuerda que sólo cuentas con dos intentos. Conque has de andarte 
con cuidado para no malgastarlos. Si no lograras identificar al asesino ni 
averiguar la hora en la que tuvo lugar el asesinato, el ordenador será 
quien descubra el pastel, cosa que no ha sido necesaria en este caso: 


ESTE ES EL INTENTO NUMERO 1 
QUIEN FUE EL ASESINO? BETTY 


1) 


CUANDO SUCEDIO EL ASESINATO? 11 


SI, BETTY CRUMB ES EL ASESINO 


1) 


SI, EL ASESINATO TUVO LUGAR A LAS 11 


BIEN HECHO! 


1 


HAS RESUELTO EL ASESINATO EN 
1 INTENTOS 


EL ASESINO FUE BETTY CRUMB 


1 


EL ASESINATO TUVO LUGAR A LAS 11 PM 


Al llegar a la mansión te es entregado un plano del edificio que te 
ayudará a aclarar tus ideas: 


COMEDOR ESTUDIO 


INVERNADERO PATIO OSCURO. SALA DE BAILE 


NADIE LO UTILIZA. EL 

ASESINATO NUNCA 

TIENE LUGAR EN EL. HABITACIONES DE LA 
SERVIDUMBRE 


DORMITORIO 
DEL BIBLIOTECA COCINA 
ANFITRION 


Observa que, aunque el asesino mienta, otros huéspedes pueden haber- 
lo visto en la habitación en la que tuvo lugar el asesinato precisamente a 
la hora en la que ocurrió. Por supuesto, él te dirá que a esa hora estaba 
en cualquier otra parte. Un gráfico como éste puede servirte de mucho 
para dar con el asesino en un tiempo récord. 

Bravo, DETECTIVE Q. Ha llegado tu momento. Armado con tu mapa 
y con tu afilada inteligencia, debes abordar ahora uno de los casos más 
difíciles de tu carrera. 

Este es el listado que te permitirá seguir la huella de este inexplicable 
crimen: 


ooo Oo o. Oo 


O 


oo o 


1 REM 0404661626264 34 261024 64040 210 PRINT:PRINT 

2 REM + * 220 INPUT "SOBRE QUE HORA QUIERES TEN 
3 REM * DETECTIVE Q + ER INFORMACION";B 

4 REM + * 230 IF B<8 OR B>11 THEN 220 

S REM 209646-2640-2636 6-24 34 26244046 240 B=B-7 

10 REM 250 PRINT 


20 GOSUB 890:REM INICIALIZACION 

30 CLS:PRINT:PRINT 

40 PRINT "EL CUERPO DE "5G$(MV) :PRINT 
"HA SIDO DESCUBIERTO TENDIDO EN EL" 

50 PRINT "SUELO DE "5R$(MP) 

60 PRINT:PRINT 

70 PRINT "INTRODUCE 1 SI QUIERES INTE 

RROGAR A UN SOSPECHOSO O 2 SI QUIERE 


260 PRINT GS(FL)5" RESPONDE: " 

270 IF FL<>MR OR B<>MH THEN PRINT TAB 
(3); "ESTABA EN "¿RS(A(FL,B)) 

280 IF FL=MR AND B=MH THEN 730 

290 IF FL=MR AND B=MH THEN PRINT TAB( 
3);"ESTABA EN "3R$(X) 2 T=INT(RND(1)+7) 
+1: IF T<>MV AND T<>MR THEN PRINT G$(T 
)3" ESTABA CONMIGO" 


S HACER" 300 IF FL=MR AND B=MH THEN 440 
80 PRINT "UNA ACUSACION" 310 REM ** EN LA MISMA HABITACION + 
90 INPUT C 320 FOR J=1 TO 7 


100 IF C<>1 AND C<>2 THEN 90 
110 IF C=2 THEN 510 
120 INPUT "A QUIEN QUIERES INTERROGAR 


330 IF J=FL THEN 350 
340 IF A(J,B)=A(FL,B) AND RND(1)>.2 T 
HEN PRINT G$(J)5" ESTABA CONMIGO" 


"3BS$ 350 NEXT J 
130 B$=LEFTS(B$, 1) 360 REM ** EN LAS HABIT. CONTIGUAS 
140 FL=0 370 IF A(FL,B)=10 THEN Ni=9:N2=1:GOTO 


150 IF B$=LEFT$(G$(MV),1) THEN PRINT 
"NO SEAS TONTO!'":GOSUB 1250:GOTO 60 
150 PRINT 

170 FOR J=1 TO 7 

180 IF B$=LEFT$(G$(J),1) THEN PRINT G 
$(J3);" SE HA PREPARADO": FL=J 

190 NEXT J 

200 IF FL=0 THEN 60 


400 

380 IF A(FL,B)=1 THEN Ni=10:N2=9: GOTO 
400 

390 N1=A(FL,B)-1:N2=A (FL, B) +1 

400 FOR J=1 TO 7 

410 IF A(J,B)=N1 AND RND(1)>.4 THEN P 
RINT "VI A "3G$(J)3" EN "3R$(N1) 

420 IF A(J,B)=N2 AND RND(1)>.4 THEN P 


OO OOOO OoOo OA Oo Oo 


167 


OOO OOOODJCOoO OO OOO OOO OOO0o0os0os0ossmoO0o 


RINT "VI A "36$(J)53" EN "5R$(N2) 


430 NEXT J 
440 REM +** INTENTO DE ACUSACION sx 
450 PRINT:PRINT 
460 PRINT TAB(6)5"> QUIERES HACER" 
470 PRINT TAB(6)3"UNA ACUSACION (S/N) 
“3 

, 
480 INPUT B$ 
490 IF B$<>"S" AND B$<>"N" THEN 490 
500 IF B$="N" THEN CLS:PRINT:PRINT:GO 
TO 120 
510 IN=IN+1 
520 PRINT "ESTE ES EL INTENTO NUMERO" 
IN 
530 INPUT "QUIEN FUE EL ASESINO";MS 


540 PRINT: INPUT 
ESINATO"5RELOJ 
550 PRINT:PRINT 
560 FL=0 

570 IF LEFTS (MS, 1)=LEFTS (GS (MR),1) TH 
EN PRINT "SI, "5G$(MR);" ES EL ASESIN 
0": FL=FL+1 

580 IF RELOJ=MH+7 THEN PRINT:¿PRINT "S 
I, EL ASESINATO TUVO LUGAR A LAS"RELO 
J:FL=FL+4 

590 GOSUB 1250 

600 IF FL=S THEN 670 

610 IF FL=1 THEN PRINT "YA SABES QUIE 
N FUE EL ASESINO. TODO LO QUE NECESI 
TAS SABER AHORA ES LA HORA EN LA QU 
E TUVO LUGAR EL ASESINATO" 
620 IF FL=4 THEN PRINT "SABES A QUE H 
ORA SUCEDIO EL ASESINATO";:PRINT "PER 
O EL ASESINO SIGUE SIN APARECER..." 
630 IF FL=0 THEN PRINT "TE EQUIVOCAS 
EN AMBAS COSAS!" 

640 GOSUB 1250 

650 IF IN<2 THEN GOTO 30 

660 PRINT:PRINT "Y YA NO TE QUEDAN MA 
S INTENTOS":GOTO 690 

670 PRINT "BIEN HECHO! "” 

680 PRINT:PRINT "HAS RESUELTO EL ASES 
INATO EN" IN" INTENTOS" 


"CUANDO SUCEDIO EL AS 


690 PRINT:PRINT 

700 PRINT "EL ASESINO FUE "3G$ (MR) 
710 PRINT:PRINT "EL ASESINATO TUVO LU 
GAR A LAS"MH+7"PM" 

720 END 

730 PRINT TAB(3)5"YO ESTABA EN "3R$(X 


) 

740 T=INT(RND(1)7)+1: 1F T=MR OR T=MV 
THEN 740 

750 S=INT(RND(1)+7)+1: 1F S=MR OR S=MV 
OR S=T THEN 750 

760 IF RND(1)>.7 THEN PRINT G$(S);" E 

STABA CONMIGO" 

770 1F RND(1)>.7 THEN PRINT G$(T)5" E 
STABA CONMIGO" 

780 IF X>1 THEN Ni=X-1 ELSE 830 

790 T=T+1:1F T=8 THEN T=6 

800 IF S=6 OR MV=6 OR MR=6 THEN 830 

810 PRINT "VI A "3G$(T)3" EN "3R$(N1) 
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820 
830 
840 
e5o 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 


GOTO 440 

IF X<10 THEN N2=X+1 ELSE 820 
T=T-1:1F T=0 THEN T=2 

IF S=2 OR MV=2 OR MR=2 THEN 820 
PRINT "VI A "3G$(T);5" EN "5R$(N2) 
GOTO 440 

NN AA 

REM INICIALIZACION 

cLus 
DIM A(7,4),G$(7),R$(10) 
FOR J=1 TO 7 

FOR K=1 TO 4 
A(J,K)=INT(RND(1)+*10)+1 
NEXT K 

NEXT J 
MH=INT(RND(1)+4)+1: REM HORA DEL 
ASESINATO 
VICTIMA 
ASESINATO 
ASESINO 


980 MV=INT(RND (1)+7)+1: REM 
DEL 
990 MR=INT(RND(1)+7)+1: REM 
1000 IF MR=MV THEN 990 
1010 MP=INT(RND(1)+*10)+1: REM LUGAR 
DEL ASESINATO 
1020 A(MR,MH)=MP: REM SITUACION DEL 
ASESINO EN LA HABITACION DONDE TUVO 
LUGAR EL ASESINATO 


1030 REM DESAPARICION DE LA VICTIMA A 
PARTIR DEL MOMENTO DE SU MUERTE 

1040 FOR K=MH TO 4 

1050 A(MV,K)=0 

1060 NEXT K 

1070 X=INT(RND(1)+*10)+1 

1080 IF. X=MP THEN 1070:REM SE DA AL 

ASESINO UNA HABITACION SOBRE LA QUE 

MENTIR 

1090 IN=0 

1100 REM ASIGNACION DE LOS HUESPEDES 

1110 FOR A=1 TO 7 

1120 READ Gs$(A) 

1130 NEXT A 

1140 REM NOMBRE DE LAS HABITACIONES 

1150 FOR A=1 TO 10 

1160 READ R$(A) 

1170 NEXT A 

1180 RETURN 

1190 DATA "ARTHUR MOMENT", "BETTY CRUM 


B","CAROLINE FORSOOTH","DEREK LOCKJAW 
“ 


1200 DATA "EMMA HORNSWIPE","FATTY THO 

MPSON", "GENERAL BLUFF" 

1210 DATA "EL HALL DE ENTRADA","EL IN 

VERNADERO", "EL SALON PRINCIPAL", "EL C 
OMEDOR" 

1220 DATA "EL ESTUDIO", "LA SALA DE BA 
ILE", "LAS HABITACIONES DE LOS CRIADOS 
","LA COCINA", "LA BIBLIOTECA" 

1230 DATA "EL DORMITORIO DEL DUENO DE 
LA CASA" 

1240 REM 3363646 36 36-36-36 3-36 16-36-46 3636 

1250 REM BUCLE DE RETARDO 

1260 FOR T=1 TO 1500:NEXT T 

1270 RETURN 


OO 0.0: 0.000.400. 0: JO. OO O 0 0 


oO OoOoOoo omo 


Parte VI 
Simulaciones 


LOS VIAJES DE MAGALLANES 
MERCADO DE DIVISAS 
MAGNATE MINERO 

AGENTE DE CAMBIO Y BOLSA 
SOCIEDAD ANONIMA 
COLONIA SUBACUATICA 
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Los 
viajes de 
Viagallanes 


Ya no tienes que lamentarte por el hecho de no haber existido allá en 
los inicios del siglo XVI. Aunque al haber nacido en el siglo XX te perdieras 
la primera circunnavegación de la Tierra, ahora, con la ayuda de este 
programa, podrás repetirla cuantas veces quieras y con una gran variedad 
de resultados posibles. 

Tras cuatro años de infructuosos intentos en pos de conseguir una 
ayuda económica para su viaje alrededor de la Tierra, Fernando Magalla- 
nes abandonó su Portugal natal y se vino a España. Carlos V prestó un 
oído más favorable a su proyecto y así, en el mes de septiembre de 1519 
Magallanes emprendíala navegación más ambiciosa jamás realizada hasta 
entonces. Cinco naves, bastante deterioradas, y una tripulación de tan sólo 
280 hombres no parecían garantizar el éxito de la empresa. Pero, aunque 
el propio Magallanes no lograra completar el primer viaje alrededor del 
globo, ya que murió asesinado en una pequeña isla del archipiélago de 
Filipinas, la nave madre de las cinco que componían la expedición, el 
“Victoria”, tras muchas dificultades regresó a las costas: españolas tres 
años después de haber zarpado. 

Según los documentos la expedición estaba equipada con dos tonela- 
das y media de pólvora, veintiún cuadrantes y siete astrolabios. En este 
viaje, tú cuentas con esto y mucho más, como enseguida tendrás ocasión 
de comprobar por ti mismo. El programa te exige que mantengas a tus 
hombres bien alimentados, para lo cual tendrás que llevar a cabo cuidado- 
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sas transacciones comerciales con los nativos de las tierras en las que 
atraques. Asimismo, puede que te veas forzado a enfrentarte a cosas tales 
como posibles naufragios, motines y ataques piratas. Si logras no perder la 
cabeza, al final lograrás volver sano y salvo a España, tras haber visitado 
muchos de los puertos en los que se detuvo el “Victoria”. 

El ordenador hace el papel de primer piloto y, como tal, te mantendrá 


a PP € € € 7 7 O A O 5 O O O O a A e 


'R CAPITAN MAGALLANES, AQUI TIENES EL 
| INFORME DE LA SEMANA 1 DE NAVEGACION 


HEMOS ZARPADO DE LAS COSTAS ESPANOLAS 
CON UNA TRIPULACION DE 121 HOMBRES 


E LAS ARCAS CONTIENEN 209 
lo) DOBLONES DE ORO 


EN LA BODEGA HAY 97 
=y CAJONES DE VIVERES SUFICIENTES 
a PARA 7 SEMANAS 


Ñ 


INTRODUCE TU OPCION: 


1- INSPECCIONAR LAS BODEGAS 
2- NEGOCIAR CON LOS NATIVOS 
3- ZARPAR HACIA EL PROXIMO PUERTO 


a 


Es bueno saber lo que llevas a bordo para vender, lo que te permitirá 
comprar víveres para tu hambrienta tripulación: 


EN LAS BODEGAS ENCUENTRAS: 


EE 

A 19 ASTROLABIOS QUE VALEN 418 DOBL. 

——! 51 SACAS DE SAL QUE VALEN 357 DOBL. 
33 L. DE HIERRO QUE VALEN 231 DOBL. 
12 CUADRANTES QUE VALEN 384 DOBL. 


AS] 
[) EL VALOR TOTAL DE LA MERCANCIA 
ASCIENDE A 1390 DOBLONES 


INTRODUCE TU OPCION: 


1- PARA COMERCIAR CON LOS NATIVOS 
2- PARA CONTINUAR EL VIAJE 


1 


La vida en la mar es dura, incluso con todos estos víveres, y algunos 
de los hombres pueden perecer: 


e PP £ 7 [7 [7 5 5 O O O O O O O O O O O O o e e o o 


CAPITAN MAGALLANES, ESTE ES EL LIBRO 


DE A BORDO CORRESPONDIENTE A LA o) 
SEMANA 2 DE NAVEGACION Ll) 
*CUENTAS CON 119 HOMBRES+* 

TA 

LAS ARCAS CONTIENEN 269 Ue 

DOBLONES DE ORO ==» 
EN LA BODEGA HAY 93 

CAJONES DE VIVERES SUFICIENTES | 

PARA 7 SEMANAS lo) 
INTRODUCE TU OPCION: 

PAS 

1- INSPECCIONAR LAS BODEGAS a 

2- NEGOCIAR CON LOS NATIVOS si 


3- ZARPAR HACIA EL PROXIMO PUERTO 


Negociar con los nativos puede ser interesante: 


CAPITAN, QUE MERCANCIAS [] 
VAMOS A VENDER? ol 


2 — ASTROLABIOS 
3 — SACAS DE SAL 


4 —- LINGOTES DE HIERRO PAS 
6 —- CUADRANTES [] 
7 - PARA COMPRAR A LOS NATIVOS 

8 —- PARA CONTINUAR EL VIAJE 

TENEMOS 51 SACAS DE SAL POR VALOR DE uN 
7 CADA UNA ll 
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NATIVOS ES DE 5 POR SACA 


E LA MEJOR OFERTA QUE OFRECEN LOS 
¡A CUANTAS QUIERES VENDER? 30 


NATIVOS ES DE 5 POR SACA 


[) CUANTAS QUIERES VENDER? 30 

ZA) AAN COREA 
>> TIENES 359 DOBLONES << 

) LOS NATIVOS OFRECEN: 

A, 1 —- ALIMENTOS A 9 POR SACO 


2 - ESCLAVOS A 32 CADA UNO 
3 - SI PREFIERES SEGUIR NAVEGANDO 


CUANTOS VIVERES QUIERES”? 10 
> YA ESTA HECHA LA TRANSACCION < 


= 
A 7 —- PARA COMPRAR A LOS NATIVOS 
¡A 8 - PARA CONTINUAR EL VIAJE 


Y así continúa la navegación: 


[] CAPITAN MAGALLANES, ESTE ES EL DIARIO 
lol DE NAVEGACION DEL VICTORIA CORRESPON- 
DIENTE A LA SEMANA 3 
*CUENTAS CON 119 HOMBRES+* 


LA BODEGA CONTIENE VIVERES 
PARA 6 SEMANAS 


[) SEGUIMOS NAVEGANDO. .. 


= CAPITAN MAGALLANES, ESTE ES EL LIBRO 
ES DE A BORDO CORRESPONDIENTE A LA 
SEMANA 4 DE NAVEGACION 
*CUENTAS CON 119 HOMBRES* 


= 
L 


1] 


LA BODEGA CONTIENE VIVERES 
PARA 4 SEMANAS 


NUESTRO VIAJE CONTINUA. . . 


CAPITAN MAGALLANES, ESTE ES EL LIBRO 
DE A BORDO CORRESPONDIENTE A LA 
SEMANA 5 DE NAVEGACION 

*CUENTAS CON 119 HOMBRES+* 


LA BODEGA CONTIENE VIVERES 
PARA 3 SEMANAS 


SEGUIMOS NAVEGANDO. .. 
UN BARCO PIRATA DE LA PEOR CALANA HA 
SIDO AVISTADO A ESTRIBOR 
LOS PIRATAS ABORDAN NUESTRA NAVE 
TU LES OFRECES COMPRAR TU LIBERTAD Y 
ELLOS ACEPTAN LLEVANDOSE LOS DOBLONES 
Y LA POLVORA... 


Finalmente, pese a todos tus esfuerzos, los elementos se vuelven contra 


ti, poniendo un abrupto final a tu viaje: 


CAPITAN MAGALLANES, ESTE ES EL DIARIO 
DE NAVEGACION DEL VICTORIA CORRESPON- 
DIENTE A LA SEMANA 9 

*CUENTAS CON 117 HOMBRES+* 


SE HAN AGOTADO LOS VIVERES! 


TODOS TUS HOMBRES HAN MUERTO... 
TU TAMBIEN ESTAS A PUNTO DE MORIR... 


ES UNA PENA QUE TODO HAYA ACABADO ASI 
ESTO ES LO QUE HAY A BORDO 

HAS TERMINADO TU VIAJE CON: 

36 DOBLONES DE ORO 


O PIEZAS DE TELA 
19 ASTROLABIOS 


17 


< 
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21 SACAS DE SAL 

O LINGOTES DE HIERRO 
O BARRILES DE POLVORA 
9 CUADRANTES 


JO 


LA VALORACION DE TU VIAJE 
ES DE 1106 PUNTOS 


EL VIAJE HA DURADO Y SEMANAS 


7 


En otras ocasiones, sin embargo, el destino se muestra más propicio, 
llevándote a un final como éste: 


BIEN HECHO, CAPITAN 
HAS CONSEGUIDO REGRESAR 
SANO Y SALVO A ESPANA 


1) 


HAS TERMINADO TU VIAJE CON: 


116 DOBLONES DE ORO 
113 PIEZAS DE TELA 

O SACAS DE SAL 

O LINGOTES DE HIERRO 
3 BARRILES DE POLVORA 
11 CUADRANTES 


LA VALORACION DE TU VIAJE 
ES DE 3874 PUNTOS 


O 


EL VIAJE HA DURADO 11 SEMANAS 


Gran parte de lo que sabemos sobre el viaje de Magallanes está 
extraido del diario, más tarde convertido en libro, de un miembro de la 
tripulación, el italiano Pigafetta. En él, el autor habla de su deseo de ir con 
Magallanes para “experimentar y ver con mis propios ojos una parte de 
las muchas cosas, maravillosas unas y atroces otras, que ofrece el océano”. 
Ahora tú, sin necesidad de ir mendigando la ayuda de Carlos V, también 
podrás ver algunas “cosas maravillosas y atroces”: 


oOoO0 OOOO OOO Oo OOOO OoOo 


ooo oo Oo 


O 


O 


1 REM Is 16066 6H MIMI 

2 REM + * 

3 REM * LOS VIAJES DE MAGALLANES * 

4 REM + * 

A iii 

10 REM 

20 GOSUB 2850: REM INICIALIZACION 

30 CLS:PRINT 

40 T=INT(RND(1)*3) 

50 SEMANA=SEMANA+1 

60 VIVERES=INT (VIVERES-COMIDO*+HOMBRES 

) 

70 IF VIVERES<1 THEN 280 

80 IF RND(1)>.74 THEN HOMBRES=HOMBRES 

—INT(RND(1)+3) 

90 PRINT Mn 
100 IF T=0 THEN PRINT "CAPITAN MAGALL 

ANES, ESTE ES EL DIARIODE NAVEGACION 

DEL VICTORIA CORRESPON-DIENTE A LA SE 

MANA "SEMANA 

110 IF T=1 THEN PRINT "CAPITAN MAGALL 

ANES, ESTE ES EL LIBRO DE A BORDO COR 

RESPONDIENTE A LA SEMANA "SEMANA" 

DE NAVEGACION" 

120 IF T=2 THEN PRINT "CAPITAN MAGALL 

ANES, AQUI TIENES EL INFORME DE LA 

SEMANA "SEMANA"DE NAVEGACION" 

130 IF PRT=1 OR PRT=9 THEN 560 

140 HOMBRES=INT (ABS (HOMBRES) ) 

150 PRINT TAB(8)3"*CUENTAS CON"HOMBRE 
S"HOMBRES+*" 

160 IF HOMBRES<10 THEN PRINT "ESTA TR 
IPULACION NO ES SUFICIENTE PARA EL 
VICTORIA, ASI QUE TENDREMOS QUE PER 
MANECER AQUI EN"3AS$(PRT):GOTO 660 

170 PRINT 
180 T=INT(RND(1)+*3.5) 

190 IF ASTRO=0 OR CUADRANTES=0 THEN P 
RINT "NO DISPONES DE NINGUN INSTRUMEN 
TO DE NAVEGACION! !!'!"*PRINT "ESTO ES 
EL FINAL...":rGOSUB 3160:GOTO 660 

200 IF T=0 THEN PRT=PRT+1: 1F PRT>9 TH 
EN PRT=9:+PRINT "ESTAMOS EN "5AS(PRT) 
210 W=INT(RND(1)+*2) 

220 IF INT(VIVERES/ (COMIDO*+HOMBRES) >< 
1 THEN 280 

230 IF T>O THEN PRINT:PRINT TAB(4)5"L 
A BODEGA CONTIENE VIVERES":PRINT TAB( 
10) 3 "PARA" INT (VIVERES/ (COMIDO*+HOMBRES 
)) "SEMANAS" 

240 IF T>O AND Wz=1 THEN PRINT:¿PRINT T 
AB (RND (1)+8)5 "SEGUIMOS NAVEGANDO. .."* 
GOTO 480 

250 IF T>O AND W=0 THEN PRINT:PRINT T 
AB(RND(1)+*8)5 "NUESTRO VIAJE CONTINUA. 
.-.":GOTO 480 


260 IF HOMBRES<10 THEN PRINT “TU TRIP 
ULACION ES DEMASIADO ESCASA PARA EL 
VICTORIA, ASI QUE HEMOS DE QUEDARN 


OS AQUI EN "2 AS(PRT):GOTO 660 

270 IF VIVERES>1 THEN 340 

280 PRINT TAB(5)5"SE HAN AGOTADO LOS 
VIVERES!":GOSUB 3160 

290 PRINT TAB(3)5"TODOS TUS HOMBRES H 
AN MUERTO..." 

300 PRINT "TU TAMBIEN ESTAS A PUNTO D 
E MORIR..." 


310 GOSUB 3160 

320 PRINT:PRINT "ES UNA PENA QUE TODO 
HAYA ACABADO ASI" 

330 PRINT TAB(6);5"ESTO ES LO QUE HAY 
A BORDO"*PRINT:GOTO 660 

340 PRINT:PRINT "LAS ARCAS CONTIENEN" 
DINERO: PRINT"DOBLONES DE ORO" 

350 PRINT:PRINT "EN LA BODEGA HAY"VIV 


ERES:PRINT "CAJONES DE VIVERES SUFICI 
ENTES" 
360 PRINT "PARA" INT (VIVERES/ (COMIDO*H 


OMBRES) ) "SEMANAS" 
370 PRINT:PRINT "INTRODUCE TU OPCION: 
. 


380 PRINT 

390 PRINT TAB(4)5"1- INSPECCIONAR LAS 
BODEGAS" 

400 PRINT TAB(4)5"2- NEGOCIAR CON LOS 
NATIVOS" 

410 PRINT TAB(4)5"3- ZARPAR HACIA El 

PROXIMO PUERTO" 

420 IF INKEYS<>"" THEN 420 

430 BS=INKEYS 
440 IF BS<"1" OR B$>"3" THEN 430 

450 IF B$="1" THEN GOSUB 770 

460 IF B$="2" THEN GOSUB 980:GOTO 530 

470 REM *%* INCIDENTES ex. 

480 RN=INT(RND(1)+21) 

490 IF RN=1 THEN ESC=ESC+1:1F ESC=3 T 

HEN RN=2 ELSE GOSUB 2170 

500 IF RN=2 THEN NAUFRAGIO=NAUFRAGIO+ 
1: 1F NAUFRAGIO=2 THEN RN=3 ELSE GOSUB 
2260 

510 IF RN=3 THEN MOTIN=MOTIN+1:3 IF MOT 
IN=2 THEN RN=4 ELSE GOSUB 2440 

520 IF RN=4 THEN PIRATAS=PIRATAS+1: IF 
PIRATAS=3 THEN 480 ELSE GOSUB 2580 
530 GOSUB 3160 

540 GOTO 30 

550 REM 204616362616 366-4242 26 2H 

560 REM PUERTO ESPANOL 

570 IF PRT=9 THEN 630: REM FINAL 

580 PRINT:PRINT "HEMOS ZARPADO DE LAS 
COSTAS ESPANOLAS" 5 

590 PRINT "CON UNA TRIPULACION DE"HOM 
BRES"HOMBRES" 

600 GOSUB 31640 

610 CLS:PRINT:PRINT 

620 T=0:GOTO 200 

630 REM +** FIN DEL VIAJE ++. 

640 PRINT "BIEN HECHO, CAPITAN" 

650 PRINT:PRINT "HAS CONSEGUIDO REGRE 


SAR":PRINT "SANO Y SALVO A ESPANA": PR 
INT 
660 PRINT "HAS TERMINADO TU VIAJE CON 


2":PRINT:PRINT DINERO"DOBLONES DE ORO 


670 PRINT PIEZA"PIEZAS DE TELA", ASTRO 
"ASTROLABIOS" 

680 PRINT SAL"SACAS DE SAL",HIER"LING 
OTES DE HIERRO" 

690 PRINT POLVORA"BARRILES DE POLVORA 


700 PRINT CUADRANTE "CUADRANTES" 

710 PRINT 

720 PRINT:PRINT TAB(4)5"LA VALORACION 
DE TU VIAJE":PRINT TAB(4)5"ES DE"INT 
((PIEZA+2*ASTRO+SAL+2*HIER+3*POLVORA+ 
7*CUADRANTES) * (SEMANAFHOMBRES+D INERO) 
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/62) "PUNTOS" 
730 PRINT:PRINT TAB(4)5"EL VIAJE HA D 
URADO" SEMANA "SEMANAS" 


740 IF INKEY$<>"" THEN 740 

750 END 

760 REM 3-46-36-16-26-36 36-06-36 -6-36-36 6-16 6H 6 HH IE AIM 
770 REM INSPECCION DE LAS BODEGAS 
780 BOTIN=0 

790 PRINT "EN LAS BODEGAS ENCUENTRAS: 
"¿PRINT 


800 IF PIEZA>O THEN PRINT PIEZA"PIEZA 
S DE TELA QUE VALEN"PIEZA*PDINERO"DOB 
L. ":BOTIN=BOTIN+PIEZA*PDINERO 

810 IF ASTRO>O THEN PRINT ASTRO"ASTRO 
LABIOS QUE VALEN"ASTRO*ADINERO"DOBL. ” 
: BOTIN=BOTIN+ASTRO*+ADINERO 

820 IF SAL>O THEN PRINT SAL"SACAS DE 

SAL QUE VALEN"SAL*SDINERO"DOBL.":BOTI 

N=BOT IN+SAL*SDINERO 

830 IF HIER>O THEN PRINT HIER"L. DE H 
IERRO QUE VALEN"HIER*HDINERO"DOBL. ":B 

OTIN=BOT IN+HIER*HDINERO 

840 IF POLVORA>0O THEN PRINT POLVORA"B 
ARRILES DE POLVORA QUE VALEN"POLVORA+* 

LDINERO"DOBL. ": BOTIN=BOT IN+POLVORA*LD 
INERO 

850 IF CUADRANTES>0 THEN PRINT CUADRA 

NTES"CUADRANTES QUE VALEN"CUADRANTES+* 

CDINERO"DOBL. ": BOTIN=BOTIN+CUADRANTES 

*CDINERO 

860 PRINT:PRINT "EL VALOR TOTAL DE LA 
MERCANCIA ASCIENDE A"BOTIN"DOB 
LONES":PRINT:PRINT 

870 PRINT "INTRODUCE TU OPCION: "*PRIN 
T 

880 PRINT TAB(3);"1- PARA COMERCIAR C 
ON LOS NATIVOS” 


890 PRINT TAB(3)5"2- PARA CONTINUAR E 
L VIAJE" 

900 IF INKEYS$<>"" THEN 900 

910 B$=INKEYS$ 

920 IF B$<"1" OR B$>"2" THEN 910> 

930 IF B$="1" THEN B$="2"* RETURN 

940 IF B$="2" THEN B$="3": RETURN 

950 RETURN 

960 END 

970 REM 434364613 

980 REM COMERCIO 

900 PRINT e e e 


1000 PRINT "CAPITAN, QUE MERCANCIAS": 
PRINT "VAMOS A VENDER?" 
1010 IF INKEYS$<>"" THEN 1010 


1020 IF PIEZA>0O THEN PRINT "1 - PIEZA 
S DE TELA" 

1030 IF ASTRO>O THEN PRINT "2 -— ASTRO 
LABIOS" 

1040 IF SAL>O THEN PRINT "3 - SACAS D 
E SAL" 

1050 IF HIER>O THEN PRINT "4 -— LINGOT 


ES DE HIERRO" _ 

1060 IF POLVORA>O THEN PRINT 
RILES DE POLVORA". 

1070 IF CUADRANTES>O THEN PRINT "6 -— 
CUADRANTES" 
1080 PRINT 
TIVOS" 

1090 PRINT 
JE" 


"5 — BAR 


"7 —- PARA COMPRAR A LOS NA 


"8 - PARA CONTINUAR EL VIA 


180 


A$=INKEYS 

1120 IF As<"1" 

1130 IF As="8" 

1140 IF A$="1" 

1150 IF A$="2" 

1160 IF A$="3" 

1170 IF As$="4" 

1180 IF As$="5" 

1190 IF A$="4" 

1200 IF As$="7" 

GOTO 1110 

GOSUB 3160 

RETURN 

REM * VENTA DE PIEZAS DE TELA +* 
IF PIEZAX1 THEN 1220 

PRINT "TENEMOS"PIEZA"PIEZAS DE T 

ELA POR VALOR DE"PDINERO"CADA UNA” 
1270 PRECIO=INT(PDINERO*RND(1)): 1F PR 

ECIO<PDINERO/2 THEN 1270 

1280 PRINT "LOS NATIVOS OFRECEN"PRECI 
O"POR PIEZA" 

1290 PRINT TAB (8); 
NDER"5 

1300 INPUT K 

1310 IF K>PIEZA THEN 1300 

1320 DINERO=DINERO+K*PRECIO 

1330 PIEZA=PIEZA-K 

1340 GOTO 990 

1350 REM ** VENTA DE ASTROLABIOS *s* 
1360 IF ASTRO<1 THEN 1220 

1370 PRINT "TENEMOS"ASTRO"ASTROLABIOS 
POR VALOR DE"ADINERO CADA UNO" 

1380 PRECIO=INT(ADINERO*+RND(1)): 1F PR 

ECIO<ADINERO/2 THEN 1380 

1390 PRINT "LOSNATIVOS NO OFRECEN MAS 
DE"PRECIO"POR CADA UNO" 

1400 PRINT TAB(8)5 "CUANTOS QUIERES VE 


OR A$>"8" THEN 1110 
THEN RETURN 

THEN 1240 

THEN 1350 

THEN 1460 

THEN 1570 

THEN 1680 

THEN 1790 

THEN 1900 


"CUANTAS QUIERES VE 


NDER"3 

1410 INPUT K 

1420 IF K>ASTRO THEN 1410 

1430 DINERO=D INERO+K*PRECIO 

1440 ASTRO=ASTRO-K 

1450 GOTO 990 

1460 REM *%* VENTA DE SAL ** 

1470 IF SAL<1 THEN 1220 

1480 PRINT "TENEMOS"SAL"SACAS DE saL 


POR VALOR DE"SDINERO"CADA UNA” 
1490 PRECIO=INT(SDINERO*+RND(1))2 1F PR 
ECIO<SDINERO/2 THEN 1490 
1500 PRINT "LA MEJOR OFERTA QUE OFREC 
EN LOS NATIVOS ES DE"PRECIO"POR 
SACA" 
1510 PRINT TAB(8)3 "CUANTAS QUIERES VE 
NDER”3 
1520 INPUT K 
1530 IF K>SAL THEN 1520 
1540 DINERO=D INERO+K*PRECIO 
1550 SAL=SAL-K 
1560 GOTO 990 
1570 REM ** VENTA DE LINGOTES .. 

** DE HIERRO +. 
1580 IF HIER<1 THEN 1220 
1590 PRINT "TENEMOS"HIER"LINGOTES DE 
HIERRO POR VALOR DE"HDINERO CADA UNO" 
1600 PRECIO=INT(HDINERO*RND(1)):2 1F PR 
ECIO<HDINERO/2 THEN 1600 
1510 PRINT "LA MEJOR OFERTA ES DE"PRE 
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CIO"POR LINGOTE" 

1620 PRINT TAB(8)5"CUANTOS QUIERES VE 
NDER"5 

1630 INPUT K 

1440 IF K>HIER THEN 1630 

16450 DINERO=DINERO+K*PRECIO 

1660 HIER=HIER-K 

16570 GOTO 990 

1480 REM +*%* VENTA DE POLVORA ++%* 

1690 IF POLV<1 THEN 1220 

1700 PRINT "TENEMOS"POLV"BARRILES DE 
POLVORA POR VALOR DE"LDINERO"CADA UNO 


1710 PRECIO=INT(LDINERO*+RND(1)):1F PR 
ECIO<LDINERO/2 THEN 1710 

1720 PRINT PRECIO"POR BARRIL ES TODO 
LO QUE OFRECEN LOS NATIVOS" 

1730 PRINT TAB(8)3 "CUANTOS QUIERES VE 


NDER"5 

1740 INPUT K 

1750 IF K>POLV THEN 1740 

1760 DINERO=DINERO+K*PRECIO 

1770 POLV=POLV-K 

1780 GOTO 990 

1790 REM *x* VENTA DE CUADRANTES +. 
1800 IF CUADRANTES <1 THEN 1220 


1810 PRINT "TENEMOS "CUADRANTES "CUADRA 
NTES POR VALOR DE"CDINERO"CADA UNO" 
1820 PRECIO=INT(CDINERO*+RND(1)): 1F PR 
ECIO<CDINERO/2 THEN 1820 

1830 PRINT "LOS NATIVOS OFRECEN"PRECI 
O"POR CADA CUADRANTE QUE LES VENDAS" 
1840 PRINT TAB(8)3"CUANTOS QUIERES VE 
NDER"5 

1850 INPUT K 

1860 IF K>CUADRANTES THEN 1850 

1870 DINERO=DINERO+K*PRECIO 

1880 CUADRANTES=CUADRANTES-K 

GOTO 990 

REM ** COMPRAR A LOS NATIVOS +. 
IF INKEYS$<>"" THEN 1910 


1930 PRINT TAB(7)5">> TIENES"DINERO"D 
OBLONES <<":*PRINT 

1940 PRINT "LOS NATIVOS OFRECEN: ” 
1950 CUENTAS=9+INT(RND(1)+7) 

1960 PRINT TAB(4)3"1 - ALIMENTOS A"CU 
ENTAS"POR SACO" 

1970 ESCLAVO=30+INT (RND (1)+9) 

1980 PRINT TAB(4)3"2 - ESCLAVOS A"ESC 
LAVO"CADA UNO" 

1990 PRINT TAB(4)5"3 - SI PREFIERES S 
EGUIR NAVEGANDO” 

B$=INKEYS 


IF Bs<"1" OR B$>"3" THEN 2000 


IF B$="3" THEN 1220 

IF B$="2" THEN 2110 

PRINT "CUANTOS VIVERES QUIERES"; 
INPUT K 

2070 IF K*CUENTAS>DINERO THEN PRINT " 
NO TIENES SUFICIENTE DINERO”:GOTO 206 
o 

2080 VIVERES=VIVERES+K: DINERO=DINERO- 
CUENTAS+*K 

2090 PRINT "> YA ESTA HECHA LA TRANSA 
CCION <":GOSUB 3160:GOTO 1910 


2100 GOTO 1940 
2110 PRINT "CUANTOS ESCLAVOS QUIERES" 


, 

2120 INPUT K 

2130 IF K*ESCLAVO>DINERO THEN PRINT " 
ESA CANTIDAD NO PUEDES PAGARLA CON EL 
DINERO DE QUE DISPONES":GOTO 2120 
2140 HOMBRES=HOMBRES+K: DINERO=DINERO- 
ESCLAVO+*K 

2150 PRINT "LOS ESCLAVOS YA HAN PASAD 
O A FORMAR PARTE DE LA TRIPULACION": 
GOSUB 3160:GOTO 1910 

2160 REM 3e-36-26-26-36 16-36 36 36 33M dE DIED RE 

2170 REM MUERTE POR ESCORBUTO 

2180 PRINT "DEBIDO A LA FALTA DE ALIM 
ENTOS FRESCOS, EL ESCORBUTO SE 
HA APODERADODE LA NAVE...” 

2190 GOSUB 3160 

2200 K=HOMBRES/3: K=INT(RND (1)+*K+1) 
2210 PRINT K"HOMBRES HAN PERECIDO" 
2220 GOSUB 31650 

2230 HOMBRES=HOMBRES-K 

2240 RETURN 

2250 REM 340300446114 

2260 REM NAUFRAGIO 

2270 PRINT "LA NAVE ESTA A LA DERIVA 
LLEVADA POR LAS TUMULTUOSAS AGUAS..." 
2280 PRINT "CORREMOS UN GRAN PELIGRO. 
2290 GOSUB 31650 

2300 IF RND(1)>.8 THEN 2390 

2310 PRINT:PRINT "LA TORMENTA ESTA PA 


SANDO..." 
2320 PRINT "PERO PARTE DE LA CARGA Y 
ALGUNOS HOMBRES HAN DESAPARECIDO 


POR LA BORDA” 

2330 HOMBRES=3* INT (HOMBRES /4) : PIEZA=5 
*INT(PIEZA/6) 

2340 ASTRO=7* INT (ASTRO/8) : SAL=3* INT (S 
AL/4) 

2350 HIER=4*INT(HIER/S) : POLV=5* INT (PO 
LV/6) 

2360 CUADRANTES=7+*INT(CUADRANTES/8) 
2370 GOSUB 3160 
2380 RETURN 

2390 PRINT:PRINT 
HA INUNDADO LA 
IN QUE NADA PUEDA" 

2400 PRINT "HACERSE" 

2410 GOSUB 3160 

2420 GOTO 730 

2430 REM se. 

2440 REM MOTIN 

2450 PRINT "LOS HOMBRES ESTAN DESCONT 
ENTOS CON TU"5 

2460 PRINT "MODO DE ACTUAR. 
DE UN MOTIN" 

2470 GOSUB 3160 

2480 IF RND(1)>.8 THEN 2530 


“UNA GIGANTESCA OLA 
NAVE QUE SE HUNDE S 


SE HABLA 


2490 PRINT "PERO TU CONTROLAS A TIEMP 
O LA SITUACION, CUELGAS A DOS 
DE LOS" 

2500 PRINT “"AMOTINADOS PARA DARLES A 
LOS OTROS UNA LECCION Y CONTINUAS E 
L VIAJE” 

2510 GOSUB 3150 

2520 RETURN 


2530 PRINT:PRINT 
MOTINADOS... Y A" 


"HAN TRIUNFADO LOS A 
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2540 PRINT "TI TE DEJAN EN UNA PEQUEN 


A BARCA EN MEDIO DEL OCEANO... ESTO 
ES EL FIN" 

2550 GOSUB 3160 

2560 GOTO 730 

2570 REM 034020362 

2580 REM PIRATAS 

2590 PRINT "UN BARCO PIRATA DE LA PEO 
R CALANA HA" 

2600 PRINT "SIDO AVISTADO A ESTRIBOR" 
2610 GOSUB 31650 

2620 PRINT "LOS PIRATAS ABORDAN NUEST 
RA NAVE" 

2630 GOSUB 3160 

2640 T=INT(RND(1)+3) 

2650 IF T=0 THEN 2720 

2660 IF T=1 THEN 2800 

2670 PRINT "TU LES OFRECES COMPRAR TU 
LIBERTAD Y" 

2680 PRINT "ELLOS ACEPTAN LLEVANDOSE 
LOS DOBLONES"5 

2690 PRINT "Y LA POLVORA..." 


2700 DINERO=0: POLV=0 
2710 RETURN 


2720 PRINT "LOS TEMIBLES BANDOLEROS D 
EL MAR SUBEN" 
2730 PRINT "A BORDO MATANDO HOMBRES A 


DIESTRO Y SINIESTRO" 
2740 K=INT(RND (1) *HOMBRES+HOMBRES/3) 
2750 GOSUB 3140 
2760 PRINT "EN TOTAL HAN PERECIDO"kK"H 
OMBRES" 

2770 HOMBRES=HOMBRES-K 

2780 GOSUB 3140 

2790 RETURN 
2800 PRINT 

HUIDO"” 
2810 PRINT TAB(8)3 "TIERRA!!! !" 
2820 GOSUB 3160 
2830 RETURN 
2840 REM 363636261626 2636 36361634 3646 
2850 REM INICIALIZACION 
2860 CLS 
2870 DIM A$(9) 

2880 HOMBRES=100+INT(RND (1) +30) 
2890 DINERO=200+INT (RND (1) +50) 
2900 VIVERES=100+INT(RND (1) +30) 


"HEMOS TENIDO SUERTE. . .HAN 
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2910 COMIDO=.02+INT(RND(1)*10)/100 
2920 IF VIVERES/ (COMIDO*+HOMBRES) >11 T 
HEN 2880 
2930 PIEZA=100+INT(RND(1)+*30) : REM 
PIEZAS DE TELA 
PDINERO=5+INT(RND (1) +5) : REM 
VALOR DE CADA PIEZA DE TELA 
ASTRO=15+INT (RND (1) +5) : REM 
ASTROLABIOS 
ADINERO=20+INT (RND (1)+%5) : REM 
VALOR DE CADA ASTROLABIO 
SAL=50+ INT (RND (1)%7) : REM 
SACAS DE SAL 
SDINERO=7+INT(RND (1) +4): REM 
VALOR DE LA SAL 
HIER=30+INT (RND (1) +8) : REM 
LINGOTES DE HIERRO 
HDINERO=5+ INT (RND (1)+3) : REM 
VALOR DE LOS LINGOTES DE HIERRO 
POLV=3+INT(RND (1) +2) 
LDINERO=90+INT (RND (1)+*20) 
CUADRANTES=10+INT(RND(1)+4) 
CDINERO=30+INT(RND(1)*6) 
SEMANA=0 
PRT=1 
ESC=0 
POLV=0 
MOTIN=0 
PIRATAS=0 
FOR J=2 TO 8 
READ AS$(J) 
NEXT J 
RETURN 
REM 
REM 
REM ALTERA 


2940 


2950 


2960 


2970 


2980 


2990 


3000 


3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 


eee 
RETARDO 
EL RETARDO PARA TU 
SISTEMA 
FOR P=1 TO 1000:NEXT P 
RETURN 
REM desee 
REM DATOS 
DATA "ISLAS CANARIAS", "ISLAS DE 
VERDE", "CABO DE SAN AGUSTIN", "RI 
O DE JANEIRO" 
3230 DATA "EL RIO DE SANTA CRUZ","TIE 
RRA DEL FUEGO", "ISLA DE MACTAN" 


3180 
3190 
3200 
3210 
3220 
CABO 
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VMiercado 
de divisas 


Las decisiones que se han de tomar en este juego nos afectan en donde 
más nos duele: el bolsillo. 

Esta simulación te pone en el papel de un agente de cambio y, como 
tal, has de comerciar con las nueve monedas más fuertes del mundo, desde 
el marco alemán al yen japonés. Al empezar la simulación dispones de un 
capital de mil dólares. Mediante la compraventa de divisas has de intentar 
incrementar ese capital inicial hasta dos mil quinientos dólares, como 
mínimo. 

Como verás, esto no es nada fácil. Después de todo, si así fuera, la 
simulación carecería de realismo y enseguida perdería todo su interés. 

En la pantalla aparecerán las monedas que puedes comprar y su co- 
tización. Las cotizaciones se fijan al inicio del juego, tomando el dólar 
americano como base, pero rápidamente empiezan a cambiar. Incluso los 
dólares americanos han de comprarse a la cotización que marca el merca- 
do internacional de divisas en cada momento. 

Como enseguida comprobarás, las cotizaciones de las diferentes mone- 
das se comportan de un modo bastante realista, ya que están relacionadas 
entre sí. Esto significa que en casi ningún caso puede una sola moneda 
doblar o triplicar de repente su valor con respecto a las demás. No 
obstante, sí que puede suceder que una moneda determinada pierda repen- 
tinamente la confianza internacional y, en consecuencia, se devalúe. Esto 
puede pasarles —muy de vez en cuando— a las monedas con las que 
comercias en esta simulación. 
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La mecánica del programa es bastante fácil de controlar, de modo que 
puedes concentrar tu atención en las decisiones de compra y venta, en 
lugar de andar preocupándote y gastando energías inútiles en la manera 
de aplicar esas decisiones. 

Este es el tipo de informe al que tendrás que enfrentarte una vez que 
empieces a ejecutar el programa: 


*EL MERCADO SE RECUPERA 
ESTA ES LA NEGOCIACION 1 


$ 


DIVISA COT. No. VAL. 
1 DOLARES AMERI 1.06 
2 CORONAS DANES -.187 
o) 3 FRANCOS FRANC .206 
Lo] 4 MARCOS ALEMAN -.43 
5 YEN JAPONES . 588 
6 LIBRA ESTERLI  .963 
== 7 FRANCOS SUIZO  .498 
NE 8 RIAL ARABE SA -.353 
AE, 9 DINAR KUWAITI  .146 


RES. DE DIV.$ O EN MANO $ 1000 
TOTAL $ 1000 


) 


C - COMPRAR V -— VENDER 
E -— ESPERAR R — RETIRARTE 
OK 


1) 


INTRODUCE EL NUMERO DE LA 
DIVISA QUE QUIERES COMPRAR 


DIVISA: DINAR KUWAITI 


) 


EL PRECIO ACTUAL ES DE $ .146 
CUANTO QUIERES COMPRAR? 5 


Bajo la lista de monedas y su valor actualizado en dólares americanos, 
verás cuatro opciones: COMPRAR, VENDER, ESPERAR o ABANDO- 
NAR. Sólo tienes que pulsar la clave adecuada para llevar a cabo la 
operación que escojas. 

Conforme se va desarrollando la simulación, verás cómo tu capital 
inicial aumenta o disminuye de acuerdo con las decisiones que hayas 
tomado: 


*EL MERCADO SE RECUPERA 
ESTA ES LA NEGOCIACION 3 


1) 


DIVISA COT. No. VAL. 
1 DOLARES AMERI LR 
2 CORONAS DANES -.145 == 
3 FRANCOS FRANC  .229 UE 
A MARCOS ALEMAN -.382 A, 
5 YEN JAPONES .718 
6 LIBRA ESTERLI 1.07 
7 FRANCOS SUIZO  .553 AN 
8 RIAL ARABE SA -.274 UN 
9 DINAR KUWAITI .163 50 81.5 


RES. DE DIV.$ 81.5 EN MANO $ 945.7 
TOTAL $ 1027.2 


1) 


C - COMPRAR V — VENDER 
E -— ESPERAR R -— RETIRARTE 
OK 


1) 


INTRODUCE EL NUMERO DE LA 
DIVISA QUE QUIERES COMPRAR 


DIVISA: CORONAS DANESAS 


L 


EL PRECIO ACTUAL ES DE $ .145 
CUANTO QUIERES COMPRAR? 10 


JLo 


*EL MERCADO ESTA BAJO 
ESTA ES LA NEGOCIACION 13 


DIVISA coT. No. VAL. 5 

1 DOLARES AMERI  -1.35 [) 
2 CORONAS DANES 173 100 173 

3 FRANCOS FRANC — -.236 

4 MARCOS ALEMAN 30) 100 335 

S YEN JAPONES «911 Al 
6 LIBRA ESTERLI -1.23 ERAS, 
7 FRANCOS SUIZO -.521 


18 


al 


¡ 8 RIAL ARABE SA «251 100 251 
E 9 DINAR KUWAITI -.151 50 73.5 


A MM PESAR AAA AR A 
RES. DE DIV.$ 854.5 EN MANO $ 462.4 
» TOTAL $ 1316.9 
PAN 
() C - COMPRAR  V -— VENDER 
E - ESPERAR R- RETIRARTE 
OK 
a ELIGE NUMERO DE DIVISA PARA VENDER 
¡CUA 0? PARA FINALIZAR LA NEGOCIACION 
DK 
3] DIVISA EN VENTA: DINAR KUWAITI 
E QUE CANTIDAD VAS A VENDER? 5 
Poy 
e *EL MERCADO SE RECUPERA 
ESTA ES LA NEGOCIACION 31 
. DIVISA COT. No. VAL. 
[] 1 DOLARES AMERI  .933 
oa 2 CORONAS DANES  .083 100 83.3 
3 FRANCOS FRANC .241 100 241 
4 MARCOS ALEMAN -.469 100 469 
FPS S YEN JAPONES — -.152 
dl 6 LIBRA ESTERLI  .962 
7 FRANCOS SUIZO -.735 50 367.5 
8 RIAL ARABE SA -.265 
9 DINAR KUWAITI  .072 500 360 
O E RT EEN 
LL) RES. DE DIV.$ 1521 EN MANO $ 336 


TOTAL $ 1857 
C -— COMPRAR V — VENDER 


3] 
[E E - ESPERAR R- RETIRARTE 
A OK 


Al final, el ordenador te hará un resumen de tu actuación en el 
mercado de divisas: 
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TRAS 62 NEGOCIACIONES HAS 
CONSEGUIDO CONVERTIR TUS 
$ 1000 INICIALES EN $ 24652.8 


LO HAS HECHO MUY BIEN 


[) 


1 DOLARES AMERI  .923 200 1846 AS 
2 CORONAS DANES  .114 [] 
3 FRANCOS FRANC .254 

4 MARCOS ALEMAN -.46 100 450 

5 YEN JAPONES  -.928 An 
6 LIBRA ESTERLI 1.175 a 
7 FRANCOS SUIZO -.445 50 222.5 lo) 
8 RIAL ARABE SA  .233 

9 DINAR KUWAITI .175 50 87.5 


RES. DE DIV.$ 2616 EN MANO $ 36.8 
TOTAL $ 2652.8 


O 


Este es el listado con el que puedes iniciarte en las altas finanzas 
internacionales: 


A 230 IF SALUD<O THEN PRINT "*EL MERCAD 


t 1 ' 
Ol 2REM« * O ESTA BAJO":PRINT "ESTA ES La NeGO0CI | O 
| 3 REM * MERCADO DE DIVISAS «+ ACION No. "NEG ! 

1 4 REM * +* 240 IF SALUD>O THEN PRINT "*EL MERCAD ! 

O Lo RE 06900 00 II O SE RECUPERA":PRINT "ESTA ES LA NEGO | O 
10 REM CIACION No. "NEG 
¡20 GOSUB 1050:REM INICIALIZACION 250 PRINT:PRINT “DIVISA"3TAB(19)3"COT 1 
O | 30 GOSUB 210:REM VALORES . "5TAB(26)5 "No. "5TAB(30) 3 "VAL. " LO 
| 40 REM CADA NEGOCIACION CUESTA .25 260 DINERO=0 ' 
¡50 REM EL DINERO EFECTIVO TIENE UN 270 FOR J=1 TO 9 ! 

O ¡ .125 % DE INTERES 280 PRINT J5LEFTS(NS(J),13)5TAB(18)35 | O 
60 REM POR NEGOCIACION GN(F (3) ) *INT(VA(J)*1000) /10005 ' 
| 70 EFECTIVO=1.0125*EFECTIVO 290 IF H(J)>0 THEN PRINT TAB(25)5H(J) ! 

O |. 80 NEG=NEG+1:EFECTIVO=EFECTIVO-.25 3 TAB(29) 5 INT(H(J)AVA(J)*100) /10:DINER 1 O 
! 90 GOSUB 370: REM COMERCIO O=DINERO+H (J)*VA (J) ' 

¡ 100 IF DINERO+EFECTIVO<=0 OR DINERO+E | 300 IF H(J)=0 THEN PRINT ¡ 

O | FECTIVO>=250 THEN 130 310 NEXT J O 
! 110 GOSUE 960:REM FLUCTUACIONES 320 GOSUB 1360 : 
¡120 GOTO 30 330 PRINT "RES. DE DIV.$"INT(100*DINE | 
O | 130 PRINT “TRAS"NEG-1"NEGOCIACIONES H | RO)/103TAB(18);"EN MANO $"INT(EFECTIV | O 
p AS” 0*100)/10 : 
| 140 PRINT "CONSEGUIDO CONVERTIR TUS": 340 PRINT TAB(20)5 "TOTAL $"INT((DINER ! 

O | PRINT"*$ 1000 INICIALES EN $"INT((DIN | O+EFECTIVO)*100)/10 O 
l ERO+EFECTIVO)*100)/10 350 RETURN 1 
150 GOSUB 1360 360 REM men l 
O 1 160 IF DINERO+EFECTIVO<=0 THEN PRINT 370 REM COMERCIO O 
“NO LO HAS HECHO BIEN":GOTO 180 380 IF INKEYS<>"" THEN 380 ; 

' 170 PRINT TAB(6)5"LO HAS HECHO MUY BI 390 PRINT:PRINT "C - COMPRAR","V -— VE h 
O! En* NDER", "E - ESPERAR", "R - RETIRARTE" 1! O 
' 180 GOSUB 260 400 T$=INKEYS$ 1 
190 END 410 IF TS<>"C" AND TS$<>"V" AND TS<>"E | 
O | 200 REM mea " AND T$<>"R" THEN 400 LO 
Il 210 REM VALORES 420 PRINT TAB(12)3"0K" 
| 220 CLS 430 IF T$="R" THEN 130 p 


187 


C 


440 
450 
460 
470 


480 
490 
500 
s10 
520 


530 
540 
550 
560 


, 
810 
820 


830 
840 
eso 
860 
870 
ERO 
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IF T$="E" THEN RETURN 

IF T$="Y" THEN 700 

IF INKEYS<>"" THEN 460 
PRINT:PRINT TAB(5)5" INTRODUCE EL 


NUMERO DE LA":PRINT TAB(5)5 "DIVISA QU 
E QUIERES COMPRAR” 


T$=INKEYS$ 
IF Ts<"1" 
Y=VAL (T$) 
PRINT:PRINT 
PRINT:PRINT 


OR T$>"9" THEN 480 


"DIVISA: 
"EL PRECIO ACTUAL ES 


"5NS$ (Y) 


DE $" INT(VA (Y) *1000) /1000 


PRINT "CUANTO QUIERES COMPRAR"; 
INPUT X 

IF X<0 THEN 540 

X=10+*X 


INPUT R:R=10*R 


IF R>H(Q) THEN PRINT "NO TIENES T 


ANTOS":GOSUB 1360:GOTO 790: RETURN 


H(Q)=H(Q)=R 
EFECTIVO=EFECTIVO+VA (Q)eR 

GOSUB 210 

IF INKEYS<>"" THEN 860 
PRINT:PRINT TAB(2)3 "INTRODUCE NUM 
PARA 


O 
O 
O 
O 
O 
570 IF X*VA(Y) EFECTIVO THEN PRINT "N 
O PUEDES COMPRAR TANTO":GOSUB 1360:60 
O TO 530 
580 EFECTIVO=EFECTIVO-X*VA (Y) 
590 H(Y)=H(Y)+X 
O 600 GOSUB 210 
610 IF INKEYS$<>"" THEN 610 
620 PRINT 
O 630 PRINT TAB(2)5 "INTRODUCE NUMERO PA 
RA COMPRAR MAS":PRINT " (”0” PARA FIN 
ALIZAR LA NEGOCIACION)" 
O 640 T$=INKEYS 
650 IF TS$<"0" OR T1$>"9" THEN 640 
660 IF T$="0" THEN RETURN 
O 670 Y=VAL (TS) 
£80 GOSUB 210 
690 GOTO 510 
O 700 REM ws VENTA sex 
710 IF INKEYS<>"" THEN 710 
720 PRINT "ELIGE NUMERO DE DIVISA PAR 
O A VENDER"*PRINT “*0” PARA FINALIZAR 
LA NEGOCIACION" 
730 R$=INKEYS 
O 740 IF R$<"1" OR R$>"9" THEN 730 
750 PRINT TAB(12)3"0K" 
760 Q=VAL (R$) 
O 770 IF Q=0 THEN RETURN 
780 IF H(Q)=0 THEN PRINT "NO DISPONES 
DE "N$(Q):FOR J=1 TO 700:NEXT J:GOSU 
O B 1360: RETURN 
790 PRINT:PRINT "DIVISA EN VENTA: "3N 
$(0) 
0) 800 PRINT "QUE CANTIDAD VAS A VENDER" 
O 
O 
O 


PARA VENDER MAS":PRINT "(*0” 


FIN 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
IEC 
1000 

VA( 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
(9) 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
):GO 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 


ALIZAR LA NEGOCIACION) " 
T$=INKEYS 

IF T$<"0" OR TS>"9" 
PRINT TAB(12)3"0k" 
IF T$="0" THEN RETURN 
Q=VAL (T$) 
GOSUB 210 
GOTO 780 
A 
REM FLUCTUACIONES 
SALUD=0 
FOR J=1 TO 9 

IF RND(1)>.3 THEN VA(J)=INTC((VA(J 
J))*1000)/1000 

IF VA(J)>U(J) OR VA(J)<L(J) THEN 
J)=VA (JI-F (3)/21F (J)=-F (J) 
SALUD=SALUD+SGN (F (J)) 

NEXT J 

RETURN 

A 

REM INICIALIZACION 

cLs 

REM NS$ —- 
REM VA -— 


THEN 880 


NOMBRE "DE 
VALOR (EN DOLARES) 

REM F  - INDICE DE FLUCTUACION 
REM U -— LIMITE MAXIMO 

REM L  -— LIMITE MINIMO 

REM H -— VALORES 

DIM N$(9),VA(9),F(9),U(9),L(9),H 


LAS DIVISAS 


EFECTIVO=100 

NEG=1 2: REM No. DE NEGOCIACION 
SALUD=1:REM ESTADO DEL MERCADO 
FOR J=1 TO 9 

READ NS (J),VA(J) 
VA(J)=VA(J)+INT(RND(1)+*+10+1)/100 
F(J)=VA(J)/9 

U(J)=VA(J)+4*F (3) 

L(J)=4*F (J) 


IF RND(1)>.5 THEN F(J)=-F (J) 

IF L(J)>VA(J) THEN L(J)=L (J)-F (J 
TO 1240 

NEXT J 

RETURN 

DATA "DOLARES AMERICANOS", 1 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"CORONAS DANESAS",0. 1071 
"FRANCOS FRANCESES", 0. 1267 
“MARCOS ALEMANES", 0.3906 
"YEN JAPONES",0.5181 

"LIBRA ESTERLINA",0.8730 
"FRANCOS SUIZOS",0. 4784 
DATA "RIAL ARABE SAUDI",0.3039 
DATA "DINAR KUWAITI",O. 1369 

REM SEPARACION 

PRINT —— 
RETURN 
RUN 


0000000 0O OOOO O O OA O O 


C 


o.0. O 


Magnate 
minero 


En esta fascinante simulación haces el papel de un gran magnate 
minero. De ti dependen cientos de miles de dólares. 

Empiezas el juego con un capital justo por debajo de los 100.000 
dólares y para salir victorioso de tu empresa has de manejar este dinero de 
modo que logres aumentar a 150.000 dólares aquel capital inicial. En el 
caso de que éste descienda por debajo de los 70.000 dólares, puedes 
considerar que has fracasado en tu intento. 

Aunque la siguiente explicación pueda parecer bastante complicada, 
verás cómo en cuanto el programa empiece a aparecer en la pantalla 
quedarán aclaradas la mayor parte de tus dudas: 


SEMANA 1 CAPITAL $ 99500 [] 
A A a ci lo) 
PRECIOS MERCADO TUS POSESIONES 
HIERRO----- 526 O T. * EN ALZA A 
BAUXITA---- 733 O T. *x EN ALZA [) 
COBRE------ 928 OT. * EN ALZA 
NIQUEL----- 608 O T. * EN ALZA 
ALUMINIO--- 551 O T. * EN ALZA —= 
MAGNESIO--- 482 O T. -— EN BAJA E 
PLATA------ 811 O T. * EN ALZA LJ 
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La línea superior te indica el capital del que dispones. Este capital 
desciende un tanto por ciento determinado cada semana a fin de cubrir los 
gastos generales de tu compañía minera. Debajo de esta línea aparecen los 
siete metales que puedes excavar y vender en este juego. Como el plomo y el 
cinc se suelen encontrar juntos en las mismas minas, en este juego apare- 
cen tratados como si fueran un solo mineral. 

Al lado del nombre del mineral hay un número. Este indica el precio, 
en dólares, que ha alcanzado en el mercado ese mineral durante la semana 
en cuestión. La siguiente columna, “TUS POSESIONES”, indica la canti- 
dad que has extraído de cada mineral y que todavía no has vendido. Por 
supuesto, al inicio del juego, la cantidad será cero en todos ellos, ya que 
todavía no has empezado a explotar ninguna mina. Al lado de la cantidad 
que posees de cada mineral aparecen las palabras “EN ALZA” o “EN 
BAJA” que indica el cambio, de una semana a otra, en el precio del 
mineral. 

Enseguida descubrirás que los precios no cambian arbitrariamente en 
el transcurso de una partida. Un mineral puede ir subiendo lentamente 
durante el juego y otro puede subir rápidamente de una semana a otra y 
luego empezar a bajar. El precio del derecho de explotación de cada mina 
está relacionado con el precio que tenga ese mineral en el mercado (en 
consecuencia, lo más razonable es comprar este derecho cuando el precio 
de ese mineral está en baja). Los costes de la explotación propiamente 
dicha están asimismo en relación con el estado del mercado. Observando 
las fluctuaciones en el precio de cada mineral puede saberse cuál es el 
mejor momento para comprar una mina, explotarla y vender el mineral 
(siempre con la esperanza de que los precios no hayan tocado techo y 
empiecen a bajar). 

Si observas estos dos volcados, verás cómo varían los precios de los 
minerales en una sola semana en esta ejecución: 


E SEMANA 4 CAPITAL $ 98014.8 
E NN EA A AA 
PRECIOS MERCADO TUS POSESIONES 
A] HIERRO----- 604 OT. * EN ALZA 
E BAUXITA---- 832 O T. * EN ALZA 
—— COBRE------ 1012 OT. * EN ALZA 
NIQUEL----- 632 OT. * EN ALZA 
ALUMINIO--- 554 OT. * EN ALZA 
PON MAGNESIO--- 467 OT. * EN ALZA 
lo) PLATA------ 844 OT. * EN ALZA 


A E A LL) 
PRECIOS MERCADO TUS POSESIONES 

HIERRO-----— 630 OT. * EN ALZA PAN 
BAUXITA---- 865 OT. * EN ALZA [) 
COBRE-----— 1040 O T. * EN ALZA 
NIQUEL----- 640 OT. * EN ALZA 

ALUMINIO--- 555 OT. * EN ALZA == 
MAGNESIO--- 504 OT. * EN ALZA E 
PLATA------ 855 OT. * EN ALZA A, 


Por ejemplo, se puede ver que el precio del HIERRO no dejado de 
subir durante las cinco primeras semanas y, de hecho, como veremos más 
tarde, lo que seguirá haciendo a lo largo de toda esta partida. Se ha de 
observar, además, que el capital disminuye ligeramente de una semana 
para otra. 

De vez en cuando se te ofrece la posibilidad de comprar el derecho de 
explotación de una mina determinada. Este es el primer paso hacia su 
explotación propiamente dicha: 


SE TE DA LA OPCION DE COMPRA DE UNA = 
MINA DE HIERRO POR $ 570 a 
INTRODUCE (C) PARA COMPRARLA Y lu) 
(R) PARA RECHAZARLA 


Lo que has de pagar por ese derecho está relacionado, de un modo 
bastante realista, con el precio que tiene tal mineral en el mercado en el 
momento de la compra. Si decides comprarlo, introduciendo una “C”, la 
mina en cuestión aparecerá reflejada en el siguiente informe del ordenador: 


A A A E 
SEMANA 4 CAPITAL $ 95726.4 E=7] 

PRECIOS MERCADO TUS POSESIONES 

HIERRO-----— 5656 OT. * EN ALZA PAN 

BAUXITA---—- 898 OT. * EN ALZA [) 

COBRE------— 1048 OT. * EN ALZA 

NIQUEL----- £48 OT. * EN ALZA 

ALUMINIO--- 556 OT. * EN ALZA == 

MAGNESIO--- 541 OT. * EN ALZA E 

PLATA------ 866 OT. * EN ALZA A, 
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EN LA ACTUALIDAD CUENTAS 

CON LAS SIGUIENTES MINAS: 

HIERRO --- 6 

SE TE DA LA OPCION DE COMPRA DE UNA 
MINA DE COBRE POR $ 855 

INTRODUCE (C) PARA COMPRARLA Y 

(R) PARA RECHAZARLA 


Una vez comprado el derecho se te ofrece la posibilidad de explotar la 
mina. Verás que el nombre de ésta va seguido de un número. Este número 
es la estimación de tus expertos en relación con la cantidad de mineral que 
queda en esa mina. Cuanto más alto sea, más mineral podrás extraer y 
más veces podrás poner en explotación la mina en cuestión (así, por 
ejemplo, en este caso, PLATA puede ser explotada ocho veces antes de 
agotar todas sus reservas). Con cada explotación el número irá descen- 
diendo de uno en uno y cuando llegue a cero, lo que significa que ya no 
queda mineral en la mina, ésta desaparecerá de la lista de minas en tu 
poder. 


7 SEMANA 14 CAPITAL $ 748644 
——) PRECIOS MERCADO TUS POSESIONES 
== HIERRO----- 890 51 T. * EN ALZA 
El BAUXITA---- 1160 O T. -— EN BAJA 
¡A COBRE------— 1015 OT. -— EN BAJA 
NÍDUEL====>= 720 23 T. * EN ALZA 
ALUMINIO--- 565 O T. * EN ALZA 
n= MAGNESIO--- 874 OT. * EN ALZA 
[] PLATA == 965 37 T. * EN ALZA 


EN LA ACTUALIDAD CUENTAS 
CON LAS SIGUIENTES MINAS: 
NIQUEL---- 3 


a 
LY 
m 
D 
> 
/ 
m 


Sólo puedes poseer una mina de cada tipo al mismo tiempo (de hecho, 
no se te ofrecerá comprar el derecho de explotación de un mineral si ya 
cuentas con una mina del mismo). No obstante, cuando hayas agotado 
una mina, a su debido tiempo se te volverá a ofrecer una nueva opción de 
compra de los derechos de explotación de un pozo de ese mineral. 


Si decides que quieres poner en explotación una mina, no tienes más 
que introducir la primera letra del mineral que quieres extraer. Aquí, en 
esta ejecución, yo decidí extraer PLATA: 


QUE MINA QUIERES EXPLOTAR? 
INTRODUCE LA PRIMERA LETRA DEL 

MINERAL EN CUESTION E 
(PULSA <S> PARA SEGUIR)? P ll 


El coste de la explotación, como indicábamos previamente, está en 
relación con el precio que tiene en el mercado el mineral que se vaya a 
explotar. Una vez extraído, ese mineral se añade a tus posesiones (como 
puede verse en el siguiente volcado, en el caso del HIERRO, del NIQUEL 
y de la PLATA). 


o o o o o o A A A E ON 
SEMANA 17 CAPITAL $ 75733.4 y 

dd a A A A A E RA lu) 

PRECIOS MERCADO TUS POSESIONES 

HIERRO----- 916 51 T. * EN ALZA ¡E 

BAUXITA---- 1126 OT. -— EN BAJA [) 

COBRE------ 985 OT. - EN BAJA 

NIQUEL----- 728 23 T. * EN ALZA 

ALUMINIO---— 566 OT. * EN ALZA AS 

MAGNESIO--- 911 OT. * EN ALZA ol 

PLATA------ 976 65 T. * EN ALZA LL) 


En este juego toda la habilidad reside en saber comprar y explotar las 
. minas en el momento adecuado, al tiempo que en saber encontrar el 

momento oportuno para vender el mineral extraído. Puesto que tu capital 
no cesa de disminuir debido a los gastos generales de la compañía, no 
puedes permitirte el lujo de esperar a que el mineral haya alcanzado la 
cota más alta en el mercado (o lo que tú juzgues como tal) para venderlo. 
Observa, además, que el precio más alto que un mineral puede alcanzar en 
el mercado varía de una partida a otra, de modo que en ningún momento 
puedes suponer cuál será el comportamiento del mercado basándote en 
una experiencia anterior. 

El juego termina cuando has alcanzado o sobrepasado el objetivo de 
los 150.000 dólares, o cuando has dejado que tu capital inicial descienda 
por debajo de los 70.000 dólares. Aquí tenemos el final de la ejecución que 
hemos incluido como modelo: 
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PRECIOS MERCADO TUS POSESIONES 
HTERROD----- 1072 51 T. * EN ALZA 
BAUXITA---- 922 OT. -— EN BAJA 
COBRE----— - 812 OT. - EN BAJA 
NIQUEL----- 776 23 T. * EN ALZA 
ALUMINIO--- 572 OT. * EN ALZA 
MAGNESIO--- 1133 OT. * EN ALZA 
PLATA------ 1042 123 T.* EN ALZA 


EN LA ACTUALIDAD CUENTAS 
CON LAS SIGUIENTES MINAS: 
NIQUEL---- 5 
PLATA----- 1 


NO TIENES SUFICIENTE DINERO PARA 
CONTINUAR CON ESTE NEGOCIO 


1650 GOSUB 720: REM 

LA MINA SE PONE EN FUNCIONAMIENTO 
170 IF MINA=1 THEN 50 
180 GOSUB 1170:REM VENTA DE MINERALES 
190 IF RND(1)>.95 THEN GOSUB 1710:RE 
M HUELGA 
200 IF RND(1)>.9 AND SEMANA>4 THEN GO 


390 IF INKEYS<>"" THEN 390 

400 T=INT(RND(1)%7)+1 

410 VA=INT((V(T)+.5)/10) 

420 ON T GOSUB 640,650,660, 670, 680, 69 
0,700 

430 IF R1>0 THEN RETURN 

440 PRINT "SE TE DA LA OPCION DE COMP 


O DL REM SUB 1820: REM RETRASOS LO 
; 2 REM «+ » 210 Ri=0 ¡ 
| 3 REM * MAGNATE MINERO + 220 GOTO 50 ' 
O n 4 REM + * 230 REM 404040062046 16 16-46 46 26-26-2616 1626 26 l O 
1 5 REM 040164646 646 26 62626 6-26 26d 26 240 REM PRECIO DE LOS MINERALES ¡ 
| 10 REM 250 PRINT "PRECIOS MERCADO"; TAB(21);" 1 
O ! 20 GOSUB 2030:REM INICIALIZACION TUS POSESIONES" | O 
1 30 REM 363636343010 36-16 4-16 3634-26 24-26-162646 260 PRINT "=orrmmnnnmnn 1 
| 40 REM PROGRAMA PRINCIPAL ——-—-—-—-—-—-—-—-—-—-—-.-. |. ooo . ! 
o) ¡ 50 CLS 270 FOR T=i TO 7 I O 
1 60 SEMANA=SEMANA+1 280 V(T)=INT(10*(V(T)+4.5*F (T)))/10 ] 
| 70 CAPITAL=INT (99. 5*CAPITAL) /100: REM 290 IF V(T)<LB THEN F(T)=-F(T):V(T)=L : 
E % DE GASTOS SEMANALES B+1 ro 
Oo 1 80 GOSUB 1520:REM INFORME 300 IF V(TILA THEN F(T)=-F(T)2V(Ti=L | 
l 90 COMPRA=0 A-1 | 
it 100 IF CAPITAL>14999 THEN PRINT "HAS 310 PRINT MS(T)53: FOR E=LEN(M$(T)) TO ' 
O ] ALCANZADO LA":*PRINT "META DE LOS $ 15 10:PRINT "-"32NEXT ErPRINT V(T)*105TA A e 
| 0.000": END B(20)30(T)"T."3TAB(27)3 1 
! 110 IF CAPITAL<7001 THEN PRINT "NO TI 320 IF SGN(F(T))=1 THEN PRINT "* EN A 4 
O s ENES SUFICIENTE DINERO PARA CONTI LZA" ELSE PRINT "- EN BAJA" ' O 
| NUAR CON ESTE NEGOCIO": END 330 NEXT T | 
| 120 GOSUB 370: REM 340 GOSUB 2260 ' 
O; OPCION DE COMPRA DE LA MINA 350 RETURN | O 
| 130 IF COMPRA=1 THEN 50 360 REM 30426040620 06-96-2616 26-02626260-6 MMM AAA 1 
| 140 R1=0 370 REM OPCION DE COMPRA DE LA MINA ' 

O ¡ 150 MINA=0 380 IF RND(1)>.4 THEN RETURN O 
O: ¡O 
! ¡ 

' 1 
O; ¡O 
! 
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RA DE UNA MINA DE "5MS(FL)5" POR $"3 
QSVA 
450 IF INKEYS$<>"" THEN 450 
460 PRINT "INTRODUCE (C) PARA COMPRAR 
LA Y (R) PARA RECHAZARLA" 
470 AS$=INKEYS$ 
480 IF A$<>"C" AND AS$X>"R" 
490 PRINT TAB(12)3 "OK" 
500 IF A$="R" THEN RETURN 
510 IF 7.5*VA>CAPITAL THEN PRINT 
TIENES DINERO SUFICIENTE 
A COMPRARLA": GOSUB 2260: RETURN 
520 COMPRA=1 
530 CAPITAL=CAPITAL-9.5*VA 
540 R1=VA 
550 ON FL GOSUB 570,580,590,600,610,6 
20,630 
560 RETURN 
570 H1L=R1: RETURN 
580 B1L=R1: RETURN 
590 C1L=R1: RETURN 
600 N1L=R1:¿ RETURN 
610 A1L=R1: RETURN 
620 M1L=R1: RETURN 
630 P1L=R1: RETURN 
640 FL=1:R1=H1L: RETURN 
650 FL=2:R1=B1L: RETURN 
660 FL=3:R1=C1L: RETURN 
670 FL=4:R1=N1L: RETURN 
680 FL=5:R1=A1L: RETURN 
690 FL=6:R1=M1L: RETURN 
700 FL=7:R1=P1L: RETURN 
710 REM 464616 de 16-16 6-36 36d HE DE M0 26 IM IE MIER 
720 REM 
SE PONE EN FUNCIONAMIENTO LA MINA 
730 IF H1L+B1L+C1L+NIL+A1L+M1L+PIL=0 
THEN RETURN 
740 PRINT "QUE MINA QUIERES EXPLOTAR? 


THEN 470 


"NO 
PAR 


750 PRINT "INTRODUCE LA PRIMERA LETRA 
DEL MINERAL EN CUESTION" 

760 PRINT "(PULSA <S> PARA SEGUIR) "3 
770 INPUT J$1FL=0 

780 IF J$="S" THEN RETURN 

790 MINA=0 

800 FOR K=1 TO 7 

810 IF J$=LEFTS(M$(K),1) THEN FL=K 
820 NEXT K 

830 IF FL=0 THEN 770 

840 PRINT:PRINT "QUIERES EXTRAER MINE 
RAL DE LA MINA DE" 


850 PRINT TAB(INT ((37-LEN(MS (FL)))/2) 

3)3M$ (FL) 

8650 PRINT 

870 IF J$="H" 

880 IF J$="B" 

890 IF J$="C" 

900 IF J$="N" 

910 IF J$="A" 

920 IF J$="M" THEN Ri=M1L 

930 IF J$="P" THEN Ri=P1L 

940 IF Ri=0 THEN PRINT "NO TIENES NIN 

GUNA MINA":GOSUB 2260: RETURN 

950 REM OBSERVA QUE ES MAS CARO 
EXTRAER LOS MINERALES QUE ESTAN EN 

ALZA EN EL MERCADO 

960 IF SGN(F(FL))=1 THEN PRECIO=7S EL 

SE PRECIO=45 

970 PRINT "PONER EN FUNCIONAMIENTO": P 


THEN 
THEN 
THEN 
THEN 
THEN 


R1=H1L 
R1=B1L 
R1=C1L 
R1=N1L 
R1=A1L 


RINT "LA MINA CUESTA $"PRECIO*10: CAPI 
TAL=CAPITAL-PRECIO 

980 LX=R1 

990 R1=R1-1:1F R1<O THEN Ri=0 

1000 IF INKEYS<>"" THEN 1000 

1010 PRINT "PARA EXPLOTARLA PULSA CUA 
LQUIER TECLA" 

1020 IF INKEY$="" THEN 1020 

1030 PRINT TAB(12)3 "OK" 

1040 METAL=INT(RND (1)+5*LX) 

1050 PRINT "HAS EXTRAIDO"METAL"TONELA 
DAS" 

1060 O(FL)=0(FL)+METAL 

1070 IF J$="H" THEN H1L=Ri1 

1073 IF J$="B" THEN B1L=R1 

1090 IF J$="C" THEN C1L=R1 

1100 IF J$="N" THEN NiL=R1 

1110 IF J$="A" THEN A1L=R1 

1120 IF J$="M" THEN M1L=R1 

1130 IF J$="P" THEN P1L=R1 

1140 GOSUB 2240 

1150 RETURN 

1160 REM 103644636 16-26-46-16-46-26-16-36 36-116202 

1170 REM VENTA DE MINERALES 

1180 ALMACEN=0 

1190 FOR J=1 TO 7 

1200 ALMACEN=ALMACEN+O (J) 

1210 NEXT J 

1220 IF ALMACEN=0 THEN RETURN 

1230 IF INKEYS<>"" THEN 1230 

1240 PRINT:PRINT "QUIERES VENDER ALGU 
N MINERAL? (S/N) "3 

1250 A$=INKEYS 

1260 IF A$<>"S" AND AS<>"N" 
1270 PRINT TAB(12)53"0K" 
1280 IF AS="N" THEN RETURN 
1290 PRINT "INTRODUCE LA PRIMERA LETR 
A":PRINT "DEL NOMBRE DEL MINERAL ":PRI 
NT ">>>>>"3 

1300 INPUT A$:AS=LEFTS (AS, 1) 

1310 FL=0 

1320 FOR T=1 TO 7 

1330 IF LEFTS$(M$(T),1)=4$ THEN FL=T 
1340 NEXT T 

1350 IF FL=0 THEN 1290 

1360 PRINT "QUIERES VENDER "3M$(FL) 
1370 IF O(FL)=0 THEN PRINT TAB(4)5"PE 
RO NO TIENES ALMACENADA NI UNA SOLATO 
NELADA DE ESE MINERAL ":GOSUB 2260: RET 
URN 

1380 PRINT:PRINT 
DAS” 

1390 PRINT:PRINT 
CADO":PRINT 
ELADA" 

1400 PRINT:PRINT 

UIERES VENDER"5 
1410 INPUT T:1F T<1 THEN 1410 

1420 IF T>O(FL) THEN PRINT "NO TIENES 
TANTAS":GOTO 1400 

1430 DINERO=T+*V (FL) 

1440 PRINT:PRINT "ESTA VENTA TE HA RE 
PORTADO $"DINERO*10 

1450 SAL=INT(DINERO+. 2) 

1460 PRINT "LA COMISION ES DE $"SAL 
1470 CAPITAL=INT (100* (CAPITAL+DINERO- 

SAL/10))/100 

1480 O(FL)=0(FL)-T 

1490 GOSUB 2260 


THEN 1250 


"TIENES"O(FL) "TONELA 


"EL PRECIO EN EL MER 
"ES DE $"V(FL)>*10"POR TON 


“CUANTAS TONELADAS Q 


oOo0o000OOOOoOOOoO O OoO.0OoOsp0o0opoOOCOCOOoOOOoOO0OoO0oosO0oOo 
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RETURN 
E A 
REM INFORME AL JUGADOR 


PRINT TAB(3)3 "SEMANA"SEMANA, "CAP 
$"CAPITAL*10 
RIN 


GOSUB 240: REM 

PRECIOS DE LOS MINERALES 
1570 GOSUB 2240 
1580 IF HIL+B1L+C1L+N1L+A1L+M1L+P1L=0 
THEN 1680 
LIO PRINT A ni 


16400 PRINT 
¿PRINT 
1610 IF 
H1L 
1520 IF 
B1L 
1630 IF 
cit 
1640 IF 
Nit 
1650 IF 
A1L 
1660 IF 


“EN LA ACTUALIDAD CUENTAS" 
"CON LAS SIGUIENTES MINAS: " 

H1IL>O THEN PRINT "HIERRO ---" 
B1L>0 THEN 


PRINT "BAUXITA --" 


C1L>0 THEN PRINT "COBRE ----" 


N1L>0 THEN PRINT "NIQUEL ---" 


A1L>O THEN PRINT "ALUMINIO -" 


M1L>0 THEN PRINT "MAGNESIO -" 


IF P1L>0 THEN PRINT "PLATA ----" 


PRINT 
RETURN 

REM eee 

REM HUELGA 

PRINT:PRINT 

PRINT "HAY UNA HUELGA NACIONAL D 
EL SECTOR MINERO” 

1740 SEMANA=SEMANA+2 

1750 GOSUB 2260 

1760 PRINT:PRINT 
SEMANAS DE 
ESULTADO, 

1770 PRINT 


“TE HACE PERDER DOS 
PRODUCCION Y COMO R 
TU" 

"CAPITAL DESCIENDE EN UN 3 


GOSUB 2260 
CAPITAL=INT(97*CAPITAL)/100 
RETURN 

REM 4436361436 363436 

REM RETRASOS 

T=INT(RND(1)*4)+1 

ON T GOSUB 1870,1900,1950, 1990 
GOSUB 2260 

RETURN 


PRINT "UNA GALERIA SE HA HUNDIDO 
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EN UNA DE TUS MINAS Y LOS DANOS ASC 
IENDEN A $ 12.350" 

1880 CAPITAL=CAPITAL-1235 

1890 RETURN 
1900 PRINT 

EN UNA DE” 

1910 PRINT "TUS MINAS MAS IMPORTANTES 


"UN TUNEL SE HA BLOQUEADO 


1920 PRINT "LA REPARACION LLEVA UNA S 
EMANA, CON LO QUE PIERDES GRAN PARTE 
DE LA PRODUCCION" 

1930 CAPITAL=CAPITAL-850: SEMANA=SEMAN 
A+1 

1940 RETURN 


1950 PRINT "TRES MINEROS HAN RESULTAD 
O HERIDOS EN"; 
1960 PRINT “UN ACCIDENTE OCURRIDO EN 


UNA DE TUS MINAS" 

1970 CAPITAL=CAPITAL-123 
1980 RETURN 
1990 PRINT 
O EN LAS 
DEL SUR..." 
2000 CAPITAL=CAPITAL-100-INT(RND (1)+5 
0) 
2010 
2020 
2030 
2040 
2050 


"CONTINUAS PERDIENDO DINER 
INVERSIONES DE TUS MINAS 


RETURN 

REM 2462626262626 046 6H AA 

REM INICIALIZACION 

CLs 

REM LAS MATRICES CONTIENEN LOS 
MINERALES, SU VALOR, LAS 

FLUCTUACIONES Y EL MINERAL EXTRAIDO 

2060 DIM M$(7),V(7),F(7),0(7) 

2070 CAPITAL=10000 

2080 H1L=0:REM HIERRO 

2090 B1L=0: REM BAUXITA 

2100 C1L=0:tREM COBRE 

2110 N1L=0: REM NIQUEL 

2120 A1LL=0:REM ALUMINIO 

2130 M1L=0: REM MAGNESIO 

2140 P1L=0: REM PLATA 

2150 FOR T=1 TO 7 

2160 READ M$(T),V(T) 

2170 F(T)=RND(1): 1F RND(1)>.5 THEN F( 

T)=-F (T) 

2180 LA=INT(110+RND(1)*40) 

2190 LB=INT(40+RND(1)*10) 

2200 NEXT T 

2210 SEMANA=0 

2220 DATA "HIERRO",50,"BAUXITA",70,"C 

OBRE", 90 

2230 DATA "NIQUEL",60, "ALUMINIO", 55 

2240 DATA "MAGNESIO",52,"PLATA",80 

2250 RETURN 

2260 REM RETARDO 

2270 FOR T=1 TO 1000: NEXT T 

2280 RETURN 


OO OOOO DO O OOOO OA OA O OA OAOAOAOoOsO 
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a Agente 
= de cambio 
y Bolsa 


TÍA 


Esta simulación te ofrece la oportunidad de demostrar, mediante la 
compraventa de acciones y bonos, tu vista para las finanzas. Empiezas con 
10.000 dólares y puedes escoger entre las acciones y bonos ofrecidos por 
trece compañías, todas ellas primeras firmas en sus respectivos sectores. El 
objetivo de esta simulación es conseguir multiplicar por diez la inversión 
original, de modo que al terminar el juego cuentes con un capital total de 
100.000 dólares, combinando el capital en acciones y bonos y el líquido 
disponible. 

Enseguida verás que la cosa es mucho más difícil de lo que parece, aun 
contando, como cuentas, con el asesoramiento profesional (bastante preci- 
so, por cierto) de un gabinete de estudios financieros, el cual te pondrá al 
corriente sobre las perspectivas a largo plazo de cada una de las compa- 
ñías en las que estás considerando invertir. Si la cosa se pone muy mal, 
siempre puedes abandonar el terreno de juego. 

El desempleo y la inflación fluctúan a lo largo de todo el juego y, en 
general, son los factores que determinarán que el mercado esté a la alza o 
a la baja. Como sabes, aunque las acciones tiendan a subir en un mercado 
a la alza, hay cierto tipo de acciones que contradicen este esquema. 
Algunas compañías crecen cuando el mercado está a la baja; por tanto, no 
siempre puedes seguir la “estrategia” de comprar cuando el mercado está a 
la baja y esperar todo lo que puedas para venderlas cuando el mercado 
haya cambiado. 
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El simple hecho de jugar en Bolsa acarrea ciertos gastos. Lo que debes 


pagar está en relación con el valor de tu red de acciones y el índice de 


inflación en cada momento. He incluido este gasto en el programa a fin de 
garantizar que no vas a limitarte a invertir en acciones devaluadas para 
luego esperar jugada tras jugada a que suban antes de venderlas. En la vida 
real no podrías hacer esto y, ciertamente, el coste que ello te acarrearía te 
quitará las ganas de intentarlo en esta simulación. 

Demostrando gran sensatez por tu parte, decides asesorarte antes de 
invertir tus ahorros. Le dices a tu asesor financiero que lo que buscas es 
una carpeta mixta con algunas acciones sostenidas que te procuren cierta 
seguridad y unas cuentas más arriesgadas que puedan proporcionarte unas 
ganancias significativas en un breve plazo de tiempo. Unas semanas más 
tarde recibes el siguiente informe en tu despacho. 

Léelo con cuidado. Contiene una valoración bastante precisa de cator- 
ce compañías. Tu futura fortuna dependerá de lo bien que entiendas y 
apliques en la práctica sus consejos. 


ASESORAMIENTO TECNICO AL INVERSOR 


Siguiendo sus instrucciones con respecto a nuestro asesoramiento en la 
formación de una carpeta de acciones mixta que combine cierta estabili- 
dad con la posibilidad de unas ganancias significativas a corto plazo, 
hemos decidido sugerirte las siguientes posibilidades: trece en acciones y 
una en bonos. Las compañías escogidas son una representación de las 
principales industrias europeas y americanas. En nuestra opinión, el mejor 
camino a seguir es comprar un amplio espectro de acciones, pues las 
ofertas más estables pueden compensar —hasta cierto punto— los riesgos 
que plantean algunas de las más ambiciosas. 

Se ha de tener siempre en cuenta que ninguna iniciativa basada en 
nuestra valoración tiene garantizado el éxito. Por un lado, la manera en 
que el público percibe el potencial de una determinada compañía afecta 
notablemente en el comportamiento de sus acciones en el mercado. Asi- 
mismo, de vez en cuando, también pueden darse fluctuaciones inexplica- 
bles. No obstante, en líneas generales, podrá observarse que los precios 
tienden a subir cuando el mercado está a la alza y a bajar cuando está a 
la baja. La naturaleza del mercado guarda relación con cierto número de 
indicadores económicos externos. Nosotros sugerimos que se tomen en 
consideración solamente dos de estos indicadores: las cifras de desempleo 
y el índice de inflación. Cuando ambos son altos, el mercado pierde 
confianza y los precios tienden a bajar. 

Estas son las compañías que, a nuestro juicio, merecen ser tenidas en 
cuenta a la hora de invertir. Puedes escoger entre las siguientes: 


CALAMBRE, UTILES ELECTRICOS, S. A.: Se trata de una compa- 
ñía estable que ofrece un rendimiento de un 5 por 100. No obstante, todas 
las compañías relacionadas con el campo de la electricidad, entre las que 
se incluye esta misma, iniciaron una serie de proyectos de gran envergadu- 


ra hace unos diez años cuando la energía era barata y parecía que el 
desarrollo iba a continuar indefinidamente. Los resultados de todos aque- 
llos proyectos han dado lugar ahora a una significativa desproporción 
entre la oferta y la demanda. En resumen, aunque la compañía es estable, 
las perspectivas a largo plazo de sus acciones no pasan de buenas. 


SACAPERRA'S BANK (sociedad financiera de inversiones): Debido a 
una mala gerencia durante los últimos años, el presidente actual se ha 
visto obligado a poner bajo un control estricto unos gastos cada vez más 
difíciles de sufragar. Por esta razón, el rendimiento actual de las acciones 
es sólo de un 1 por 100, pero las perspectivas a largo plazo de las mismas van 
de buenas a muy buenas. 


BAJOS HORNOS DE LUGO: El que las acciones de esta compañía 
rindan un 3 por 100 se debe principalmente a la inmensa subvención 
estatal que reciben las industrias metalúrgicas. Pese al cierre de ciertas 
plantas y la reducción de plantilla en muchas otras a fin de disminuir lo 
más drásticamente posible los costes, esta compañía ofrece pocas perspec- 
tivas a largo plazo. 


VISTEBIEN TEXTIL, S. A.: El mercado textil tiende a estar relaciona- 
do con el mercado inmobiliario. Muchos de los productos del ramo 
pertenecen a la categoría de lo “superfluo” o “de lujo”. Esta compañía, 
tras veinte años de existencia, está sólidamente enraizada en el mercado y 
sus perspectivas a largo plazo pueden ser muy buenas. No obstante, al 
igual que en el caso de sus competidores en el mismo sector, su fortuna 
depende de los antojos de la moda. En consecuencia, podría tratarse de 
una acción un tanto volátil. La proporción entre su cotización y los 
beneficios es bastante alta, y el rendimiento de un 2 por 100. 


COMECOCOS, S. A. DE INFORMATICA (electrónica): La deman- 
da de productos informáticos parece que no deja de crecer. En tanto que 
pionera en su campo, no es muy probable que esta empresa se vea 
afectada por los altibajos de la industria. Siendo como es una compañía 
estable, el rendimiento a largo plazo va de bueno a muy bueno, aunque en 
la actualidad gran parte de los beneficios se estén invirtiendo en proyectos 
de investigación y desarrollo del campo. El rendimiento de las acciones es 
de un 3 por 100 y si la demanda actual de ordenadores continúa (como 
es de esperar, al menos, durante las próximas décadas), el crecimiento de 
COMECOCOS puede ser casi desenfrenado. 


MAL DE ALTURA (alta tecnología espacial): Con la promesa de un 
importante contrato por parte del Ministerio de Defensa, las acciones de 
esta empresa muy bien podrían subir de modo vertiginoso. Su rendimiento 
actual es de un 6 por 100 y si ese contrato llegara a hacerse realidad, 
pasarían a ser unas de las acciones más valiosas del mercado. Pese a ello, 
aunque estas acciones podrían producir unos dividendos significativos, no 
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se trata sino de especulaciones, y el pronóstico a largo plazo no e: 
especialmente favorable. 


CARACOL, S. A. (transportes): Aunque se le pronostica un crecimien 
to de un 3 a un 4 por 100 para el próximo año, esta empresa ha resultadc 
afectada por la falta de regulación en el sector a nivel nacional, lo cual h: 
supuesto ya el golpe mortal para todas aquellas empresas del sector cor 
problemas de gerencia. Las acciones producen un 2 por 100. Puesto quí 
CARACOL es una de las compañías de transporte con más prestigic 
nacional e internacional, su posición en el mercado es firme y sus perspec 
tivas a largo plazo buenas, aunque no pueden esperarse unos beneficio: 
gigantescos. 


COLMENA INMOBILIARIA, S. A.: En esta empresa se da el caso di 
que los costes de la construcción suben más lentamente que los precios di 
las viviendas; por tanto, es de esperar que continúe el mismo crecimiento 
lento pero uniforme, de las últimas décadas. Esta sólida compañía merec 
ser tenida en cuenta en tanto que apoyo de otras inversiones de mayo: 
alcance. 


MATASANOS, S. A. (productos farmacéuticos): Las acciones de est: 
compañía no tienen, de momento, beneficio alguno. Esta firma lleva ta: 
sólo tres años en el mercado, y mientras algunos de sus productos ha: 
sido rápidamente aceptados, la mayor parte de las inversiones en otra 
líneas pueden darse por perdidas. Esta firma necesita un importante éxitc 
comercial que justifique la fama ganada durante los primeros meses. Si lc 
consigue, y fuentes internas sugieren que va a ser lanzado este año uno di 
esos productos que no tardan en convertirse en líderes de ventas en e 
mercado, las acciones de la compañía podrían alcanzar bastante valor. Si 
embargo, se ha de actuar con toda cautela, ya que este año puede ser e 
gran “boom” o la quiebra total de esta firma. 


PROSPECCIONES OLFATO (prospecciones mineras y petrolíferas) 
A pesar de producir un beneficio de un 7 por 100, esta compañía apena 
ha mostrado crecimiento alguno desde la primera crisis del petróleo causa 
da por el embargo de crudos por parte de los países del Golfo. Lo 
pronósticos a largo plazo son malos. 


BOMBICABLE, S. A. (electrodomésticos y accesorios eléctricos el 
general): Un rendimiento de un 4 por 100, unido a que todo parec 
indicar que los españoles van a continuar, de momento, su amoros: 
relación con los electrodomésticos, sugieren que este año puede ser el añí 
del “boom” para algunos sectores de la industria de la electrónica. Li 
firma que nos ocupa podría muy bien formar parte de esta explosión d 
ventas. No obstante, durante los últimos años no parece haber hech« 
grandes innovaciones en su línea comercial, no logrando capitalizar tod: 
el potencial que ofrecen los nuevos chips de silicio. Esto no quita par: 
que su amplia gama de productos esté sólidamente enraizada en el merca 


do. De modo que, si bien no pueden esperarse grandes milagros, tampoco 
existe el peligro de que esta compañía vaya a desaparecer repentinamente 
de la escena económica. 


CAMBALACHE, S. A. (equipamiento industrial): Por fin, parece que 
los principales productores de equipamiento industrial empiezan a superar 
la gran crisis que venía afectando al sector desde hace unos 36 meses. Las 
acciones de esta compañía no producen beneficios en la actualidad, pero 
sus productos tienen una excelente reputación en el mercado debido a su 
gran precisión y seguridad. Por consiguiente, es altamente probable que 
esta firma sea una de las primeras beneficiarias de la recuperación econó- 
mica del sector. Las perspectivas a largo plazo son buenas. 


TELELE COMUNICACIONES INC: La falta de regulación en este 
campo hace que sea muy dificil determinar los líderes que puedan surgir. Pese 
a ello, según los observadores, esta firma tiene una existencia lo suficiente- 
mente larga para encontrarse en primera línea en la lucha por la supervi- 
vencia que, sin duda, ha de tener lugar en el sector, debido precisamente a 
esa carencia de regulación durante los próximos años. El rendimiento de 
las acciones es sólo de un 1 por 100, ya que la mayoría de los beneficios 
vuelven a invertirse en el desarrollo de la industria. El pronóstico para el 
futuro: crecimiento lento, pero sólido. 


BONOS PRIMUS: La seguridad, por un lado, y su alta rentabilidad 
(un 8 por 100), por otro, hacen que estos bonos sean merecedores de una 
atenta consideración a la hora de invertir. Los bonos, en general, no 
suelen aumentar su valor, pero la mayoría de los inversores serios los 
incluyen en mayor o menor medida en sus carpetas debido a que ofrecen 
una gran estabilidad. 

Armado con toda esta información no tienes más que lanzarte a ver si 
consigues hacer fortuna. A lo largo de toda la simulación se te irá dando 
información sobre las acciones de estas catorce compañías. En la siguiente 
forma: 


DESEMPLEO - 5.6 % EL MERCADO ESTA == 
INFLACION - 8 % EN ALZA UN 
1 CALAMBRE $ 55 lu) 
2 SACAPERR $ 44 
3 BAJOS HO $ 51 
4 VISTEBIE $ 53 == 
5 COMECOCO $ 50 E 
6 MALDEALT $ 47 A, 
7 CARACOL $ 45 
8 COLMENA $ 52 
9 MATASANO $ 50 7 
10 PROSPECC $ 55 lo) 
11 BOMBICAB $ 48 


12 CAMBALAC $ 49 
13 TELELE C $ 56 
14 BONOS PR $ 48 


a 
LJ) 


>>>CAPITAL NETO: $ 10003 
>>>FONDOS: $ 10003 
>>>ACCIONES: $0 


E 
¡2. 


--> DESEAS VENDER (A), COMPRAR (B), 
ESPERAR (C) O RETIRARTE (D)? 


Como .ves, este informe también te indica los índices actuales de 
desempleo e inflación, así como el estado del mercado. En todo momento 
se te ofrecen cuatro posibilidades: vender, comprar, esperar (a que el 
mercado cambie favorablemente antes de actuar) y abandonar. 

En cuanto empieces a invertir, el informe será más o menos así: 


DESEMPLEO - 13.5 % EL MERCADO ESTA 


== INFLACION - 11.7 % EN BAJA 
A 1 CALAMBRE $0 200 $0 
sal 2 SACAPERR $5 

3 BAJOS HO $ 55 

4 VISTEBIE $ 13 
[) 5 COMECOCO $ 1 10 $ 10 

6 MALDEALT $ 72 
_ 7 CARACOL $ 25 

8 COLMENA $ 27 

9 MATASANO $ 52 1200 $ £2400 
1] 10 PROSPECC $ 39 
A 11 BOMBICAB $ 46 

12 CAMBALAC $ 26 

13 TELELE C $53 10 $ 530 

BONOS PR $ 48 


É 


>>>CAPITAL NETO: $ 62379.39 
>>>FONDOS: $-560. 61 
>>>ACCIONES: $ 562940 


1 


INTRODUCE NUMERO PARA VENDER 
(x0> PARA FINALIZAR LA VENTA) >>>7 9 


CUANTAS QUIERES VENDER? 1000 

LAS DE MATASANOS QUIMICA MEDICA 
VALEN $ 32 CADA UNA 

>> ESTOY PROCESANDO LA TRANSACCION << 


) 
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Pese a que el mercado está a la baja, una inversión bien pensada 
debería llevarnos a un crecimiento gradual de nuestro poder económico: 


DESEMPLEO — 13.5 % EL MERCADO ESTA 


INFLACION - 5.4 % EN BAJA FS 
1 CALAMBRE $ 20 e 
2 SACAPERR $0 100 50 A, 
3 BAJOS HO $59 100 $ 5900 
4 VISTEBIE $0 100 $0 
5 COMECOCO $0 10 $0 E 
6 MALDEALT $52 200 $ 10400 [] 
7 CARACOL $0 100 $0 
8 COLMENA $0 100 $0 
9 MATASANO $54 400 $ 21400 == 

10 PROSPECC $ 23 100 $ 2300 Ea 
11 BOMBICAB $ 30 A, 
12 CAMBALAC $ 2 100 $ 200 

13 TELELE C $ 43 

14 BONOS PR $ 


7 


>>>CAPITAL NETO: $ 72598.08 
>>>FONDOS: $ 32198.08 
>>>ACCIONES: $ 40400 


a 


--> DESEAS VENDER (A), COMPRAR (B), 
ESPERAR (C)> O RETIRARTE (D)>? 


De vez en cuando las acciones se dividen: 


*> 
*> 
*> 
*> 
*> 
*> 
*> 
*> 
*> 
*> 
*> 
*> 
*> MALDEALTURA INDUSTRIAL 
SE DESDOBLA 2 POR 1 
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Cuando la cotización de una acción suba por encima de 60, ésta se 
dividirá, su precio quedará reducido a la mitad y la cantidad de acciones 
que no tenga de esa firma en concreto pasará a ser el doble (siempre que 
tenga alguna, claro está). 

Aquí tienes la oportunidad de probar en el ordenador tu propio 
sistema de inversiones antes de lanzarte al mercado con pesetas contantes 


y sonantes: 
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/ 


340 IF RND(1)>.8 THEN 


¡ 1 REM 33600060 IEEE III II MIA 380 ¡ 
O! 2 REM «+ * 350 DESEMPLEO=INT((DESEMPLEO+DCAMBIO+ | O 
3 REM * AGENTE DE CAMBIO Y BOLSA + .5)*10)/10 ! 

1 4 REM + * 360 IF DESEMPLEO<3.7 THEN DCAMBIO=-DC 1 
O 4 S REM 646646 dd 16 16 16 16 66 16 6 A MM MIE AMBIO: DESEMPLEO=3.8 ] O 
l 10 REM 370 IF DESEMPLEO>13.6 THEN DCAMBIO=-D ! 

!. 20 GOSUB 1410:REM INICIALIZACION CAMBIO: DESEMPLEO=13.5 1 
O ! 30 cis 380 PRINT "DESEMPLEO -"LEFTS$(STR$(DES |! O 
¡ 40 EFECTIVO=EFECTIVO-INT(INFLAC* (EFEC EMPLEO),5)" %"3TAB(20)3"EL MERCADO ES + 
!. TIVO+VA)/10000):REM LOS HONORARIOS TA" ¡ 

O 1 DEL CONSEJERO FINANCIERO ESTAN 390 IF INFLACI>9 THEN MERCADO=-1:A$=" 1 O 
¡ RELACIONADOS CON LA INFLACION Y EL EN BAJA" | 
] CAPITAL NETO 400 IF INFLACI<4.S THEN MERCADO=1: A$= : 

O | 50 GOSUB 300:REM FACTORES EXTERNOS "EN ALZA" ¡O 
60 GOSUB 540: REM 410 REM +%e* INFLACION 1... 

! OPERACIONES BURSATILES 420 IF RND(1)>.8 THEN 460 1 
O , 70 GOSUB 1100: REM 430 INFLACI=INT((INFLACI+ICAMBIO+.5)* 1 O 
] PAGO DE LOS DIVIDENDOS 10)/10 | 

! 80 GOSUB 1170: REM DESDOBLAMIENTOS 440 IF INFLACI<4 THEN INFLACI=4.1: ICA 

Oi 90 GOSUB 1320: REM MBIO=-ICAMBIO LO 
! ] MOVIMIENTOS DEL MERCADO 450 IF INFLACI>12 THEN INFLACI=11.9:1I 
¡y 100 IF EFECTIVO+VA>O AND EFECTIVO+VA< CAMBIO=-ICAMBIO n 

O  100*1000 THEN 30 460 PRINT "INFLACION -"LEFTS(STR$(INF 1 O 
s 110 IF EFECTIVO+VA>=100*1000 THEN 150 LACI),5)3" 2"3TAB(25)3A$ | 
|. 120 PRINT:PRINT "AHORA TU CAPITAL NET 470 REM ** EN BAJA/EN ALZA ++ 

O lO ES CERO" 480 IF RND(1)<.8 THEN RETURN O 
1. 130 PRINT "TUS NEGOCIOS BURSATILES HA 4790 MERCADO=-MERCADO 1 
l. N FRACASADOROTUNDAMENTE ! " 500 IF A$="EN ALZA" THEN A$="EN BAJA" l | 

O | 140 END ¿RETURN o) 
l 150 REM +** EXITO +*+x*e 510 As$="EN ALZA" 1 
l 160 PRINT:PRINT TAB(8); "BIEN HECHO!" 520 RETURN ¡ 

O | 170 PRINT:PRINT: "HAS LOGRADO MULTIPLI S3O REM 04606369696 26 36 266663090630 O 
l CAR POR DIEZ TU" 540 REM OPERACIONES BURSATILES ! 
|. 180 PRINT "CAPITAL INICIAL DE $10.000 550 GOSUB 970 í 

O ES 560 IF INKEY$<>"" THEN 560 ¡O 
| 190 PRINT:PRINT "AQUI TIENES TU CARPE 570 PRINT A 
¡ TA DE ACCIONES..." 580 PRINT " --> DESEAS VENDER (A), CO 1! 

O | 200 VA=o MPRAR (B)," LO 
|. 210 FOR J=1 TO 14 590 PRINT TAB(S5); "ESPERAR (C) O RETIR |! 

1 220 IF H(J)<>0 THEN PRINT LEFTS(N$(J) ARTE (D)?" | 

O l—,10)3TAB(22)3H(J)5TAB(29)3"$"5H(J)V( £00 R$=INKEYS LO 
1 3): VA=VA+H(J)AV(J) 610 IF R$<>"A" AND R$<>"B" AND R$<>"C | 
1 230 NEXT J " AND R$<>"D" THEN 500 n 

O | 240 EFECTIVO=INT((EFECTIVO+.5)*10)/10 620 PRINT TAB(12)3 "OK" O 
1 250 PRINT TAB(4)5">>> EFECTIVO NETO $ £30 IF R$="D" THEN 190 l 
"EFECTIVO 640 IF R$="C" THEN RETURN ! 

O 1 260 PRINT TAB(4)5">>> POSESIONES--- $ 650 CLS:GOSUB 300:GOSUB 970 LO 
"YA 660 IF R$="A" THEN 820 l 
| 270 PRINT TAB(4)3"<*> TOTAL NETO--- $ 670 REM ** COMPRA +. 

O | "VA+EFECTIVO £80 PRINT "PARA COMPRAR INTRODUCE EL 1 O) 
| 280 END NUMERO DE LA ACCION O <0> PARA SEGUI ! 
1290 REM qee 06 96 6600000 R >>>"; ' 

O ! 300 REM FACTORES EXTERNOS 690 INPUT WH O 
¡310 REM ex DESEMPLEO 0% 700 IF WH=0 THEN RETURN ' 

1 320 IF DESEMPLEO>10 THEN MERCADO=-1:A 710 IF WH<1 OR WH>14 THEN.690 ñ 

O |  $="EN BAJA" 720 PRINT NS(WH):PRINT "A $"V(WH)"CAD ¡ OQ 
1. 330 IF DESEMPLEO<S THEN MERCADO=1:A$= A UNA" ' 
"EN ALZA" 730 PRINT "CUANTAS QUIERES"; ' 


OoO0O0 OOOO OO OoO0 


9.0 0 06 6 0.Oo 0. .0..0 


o. o 


740 INPUT HO 

750 IF HO=0 THEN 770 

760 IF HO*V(VH) >EFECTIVO THEN PRINT " 
TU CAPITAL DISPONIBLE NO TE PERMITE 
COMPRAR TANTAS":GOSUB 1490:GOTO 730 
770 PRINT ">> ESTOY PROCESANDO LA TRA 
NSACCION <<" 

780 GOSUB 1690 

790 EFECTIVO=EFECTIVO-V (WH) HO 

800 H(WH) =H (WH) +HO 

810 GOTO 650 

820 REM +%* VENTA +. 


830 PRINT "INTRODUCE MUMERO PARA VEND 
ER":*PRINT "(<0> PARA FINALIZAR LA VE 
NTA) >>>"3 


840 INPUT WH 
850 IF WH=0 THEN RETURN 

8560 IF H(WH)=0 THEN PRINT "NO TIENES 
NINGUNA":GOSUB 1690:GOTO 830 

870 PRINT "CUANTAS QUIERES VENDER"; 
880 INPUT HO 

890 IF HO>H(WH) THEN PRINT "NO TIENES 
TANTAS": GOSUB 1490:G0TO 870 
900 PRINT "LAS DE "N$(WH):PRINT 
N $"V(WH) "CADA UNA" 

910 PRINT ">> ESTOY PROCESANDO LA TRA 
NSACCION <<" 

920 GOSUB 1690 

930 EFECTIVO=EFECTIVO+V (WH) *HO 
940 H(WH) =H (WH) —HO 

950 IF WH=0 THEN RETURN 

960 CLS:GOSUB 970:GOTO 830 

970 VA=0 

980 FOR J=1 TO 14 

990 IF J<10 THEN PRINT " "3 
1000 PRINT J3LEFTS(N$(J),8)5" 
yq 3" 3 

1010 IF H(J)<>0 THEN PRINT TAB(20)5H( 

J)5TAB(26)3" $"5H(J)AV(J) : VA=VA+H (J) ++ 

VJ) 

1020 IF H(J)=0 THEN PRINT 

1030 NEXT J 

1040 PRINT 

1050 PRINT TAB(8)3">>>CAPIFAL NETO: $ 
"EFECTIVO+VA S 

1060 PRINT TAB(8)5"5>>xFONDOS: s 
"EFECTIVO 4 
1070 PRINT TAB(8)5"YS>ACCIONES: s 
"YA 
1080 
1090 
1100 


"VALE 


$"5v(J 


RETURN 

REM 464636 06-06 06 26-26 46 36d 36d 36d dE 1d 

REM PAGO DE DIVIDENDOS 

1110 FOR J=1 TO 14 

1120 IF H(J)<>0 THEN EFECTIVO=EFECTIV 
O+V(J)H(J) AY (3) /5200 

1130 NEXT J 

1140 EFECTIVO=INT(EFECTIVO*100)/100 
1150 RETURN 

1160 REM 336-4636 -26 4636-36-36 46 26-36 16-36-3363 AIDA IE IET 
1170 REM DESDOBLAMIENTO DE ACCIONES 
1180 FOR X=1 TO 14 

1190 IF V(X)>60 THEN GOSUB 1220 

1200 NEXT X 

1210 RETURN 

1220 CLS 

1230 V(X)=INT(V(X)/2) 

1240 FOR U=1 TO 12 
1250 PRINT TAB (2+*U) 5 
1260 NEXT U 


ngyn 


PRINT "x*> "3N$(X):PRINT 
2 POR 1” 

GOSUB 1690 

IF H(X)<>0 THEN H(X)=2x*H(X) 
RETURN 

E 
REM MOVIMIENTOS DE MERCADO 
IF RND(1)>.4 THEN RETURN 
M=INT(RND(1)+*10)+1 

FOR J=1 TO 14 

V(J)=V (J) +MERCADO+F (J,M) 

IF V(J)<1 THEN V(J)=0 


"SE DESD 


NEXT J 

RETURN 

A 

REM INICIALIZACION 

CcLs 

: REM N$ — NOMBRE DE LAS ACCIONES 

REM Y -— INTERES 

REM V' -— VALORES INICIALES 

REM H - POSESIONES 

REM F  - CAMBIOS EN EL CAP. NETO 
DIM N$(14),Y(14),V(14),H(14),F(1 


DESEMPLEO=INT (3+RND (1)+5) 
DCAMBIO=RND (1) 
INFLACI=INT (4+RND (1)+5) 
ICAMBIO=RND (1) 

A$="EN ALZA" 
EFECTIVO=10010 

MERCADO=1 

FOR J=1 TO 14 

READ N5$(J) 

READ Y(J) 

V(3)=INT (SO+RND (1) *10-RND(1)+*10) 
NEXT J 

REM MOVIMIENTO DEL CAPITAL 
FOR J=1 TO 14 

FOR K=1 TO 10 

READ F(J,K) 

NEXT K 

NEXT J 

RETURN 

REM ee 2 

REM RETARDO 

FOR J=1 TO 1000:NEXT J 


RETURN 

DATA "CALAMBRE CORPORATION",S 
DATA "SACAPERRA”S BANK", 1 

DATA "BAJOS HORNOS DE LUGO",3 
DATA “VISTEBIEN TEXTIL S.A.",2 
DATA "COMECOCOS S.A.",3 

DATA "MALDEALTURA INDUSTRIAL",6 
DATA "CARACOL TRANSPORTES”, 2 
DATA "COLMENA INMOBILIARIA ",O 
DATA "MATASANOS QUIMICA MEDICA", 
DATA "PROSPECCIONES OLFATO",7 
DATA "BOMBICABLE S.A.",4 

DATA "CAMBALACHE, S.A.",0O 

DATA "TELELE COMUNICACIONES”, 1 
DATA "BONOS PRIMUS",8 


REM xs DATOS DEL ALZA +» 
REM CALAMBRE 

DATA 3,3,0,1,3,-8,2,3,12,-6 
REM _SACAPERRAS 

DATA 4,2,4,0,4,3,2,1,2,3 
REM BAJOS HORNOS 


DATA 1,-1,1,0,0,-1,-2,1,-1,0 


O0o000O0OOOOCDOoOOOCO O OOO OA OOOO OOOO 


5 


C 


ooo Oo 


1930 REM VISTEBIEN 
1940 DATA 12,14,-10,-13,0,8,-7,12,12, 


1950 REM COMECOCOS 

1960 DATA 6,5,6,-1,5,6,8,0,6,5 

1970 REM MALDEALTURA 

1980 DATA 12,-20,9,-20,0,-15,20,3,-19 


1990 REM CARACOL 

2000 DATA 6,5,4,-3,4,0,-9,4,3,2 
2010 REM COLMENA 

2020 DATA 3,2,1,0,2,1,3,2,1,3 
2030 REM MATASANOS 
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2040 
4,10 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 


DATA 15,-10,15,-20,3,-19,20,-3,- 


REM PROSPECCIONES 

DATA 1,0,2,0,1,0,2,0,2,0 

REM BOMBICABLE 

DATA 5,4,3,-1,-2,0,-4,2,-5,6 
REM CAMBALACHE 

DATA 7,6,5,-4,-3,-1,12,3,2,0 
REM TELELE 

DATA 1,2,1,0,-1,-2,0,1,2,-1 
REM BONOS PRIMUS 

DATA 0,0,0,0,0,0,0,0,0,0 
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Sociedad 
Anónima 


En esta simulación vamos a comprobar tu capacidad como director 
gerente de una gran fábrica. 

Como presidente del consejo de administración, la fortuna de la compa- 
ñía depende totalmente de las decisiones que tomes en cada momento. 
Salvo un sindicato ligeramente recalcitrante que intentará por todos los 
medios que no se lleve a cabo ningún despido, lo que en algunas ocasiones 
te fastidiará sobremanera, podrás manejar el resto de la compañía a tu 
antojo. Te enfrentas a uno de los mayores retos de tu carrera profesional. 

Al empezar la simulación cuentas con un capital total de 10.000 dóla- 
res, de los cuales 1.000 dólares proceden de un préstamo bancario. Has de 
terminar con 50.000 dólares limpios de deudas, es decir, tendrás que haber 
devuelto el préstamo inicial de 1.000 dólares además del resto de las 
deudas que hayas contraído durante la simulación. 

Cada jugada consta de seis etapas que tienen lugar en el transcurso de 
una semana. El ordenador se encargará de llevarte de una a otra etapa, 
así que enseguida verás que esta simulación es mucho más fácil de lo que 
pueda parecer de primeras. Las etapas de cada semana son las siguientes: 


1. Banco: préstamos/devolución de los mismos. 
2. Staff: contratación/despidos. 

3. Compra de materiales si fuera necesario. 

4. Manufacturación de los productos. 
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5. Ventas. 
6. Balance económico de la semana. 


Este es un ejemplo de las operaciones bancarias: 


==] ESTA ES LA SEMANA 1 

E DISPONES DE UN CAPITAL DE $ 10000 
DE ESTE, $ 1000 PERTENECEN 
A UN PRESTAMO BANCARIO 


Po] QUIERES DEVOLVER TODO O PARTE DE EL? 
ai?) (S/N) 
OK 
QUIERES PEDIR UN PRESTAMO AL BANCO? 
EN PUEDES SOLICITAR HASTA $ 2500 
[ INTRODUCE (P)> SI QUIERES SOLICITAR 


OTRO PRESTAMO O (N) SI LO RECHAZAS 
OK 

EL BANCO COBRA UN 4 % 

DE INTERES MENSUAL 


] 
cal 


LOS INTERESES DE ESTA SEMANA 
ASCIENDEN A $ 10 

TRAS PAGARLOS, TIENES UN CAPITAL 
DE $ 9990 


Ñ 
EA 


Puestas en orden las finanzas, intentas ampliar o reducir tu plantilla: 


A A e o e 

3 TIENES 32 EMPLEADOS EN NOMINA 

LL EL SALARIO MEDIO ES DE $ 83.7 
LO QUE SUPONE $ 2678.4 EN TOTAL 

AA] PULSA LA (C) SI QUIERES CONTRATAR MAS 

lu) PERSONAL, (D) SI QUIERES DESPEDIR A 
ALGUNOS, O (N) SI NO QUIERES REALIZAR 
CAMBIOS 

1) ' 

E, A CUANTOS QUIERES CONTRATAR? 10 


AHORA TIENES 42 EMPLEADOS EN NOMINA 


>) LA NOMINA DE ESTA SEMANA ASCIENDE 
LY) A $ 3515.4 


Como te puedes imaginar, no puedes ahorrar dinero mediante ciertas 
acrobacias económicas, tales como reducir a cero la plantilla, porque 
entonces no tendrías quien fabricara los productos que tienes que vender. 
Con una plantilla más o menos acorde con tus deseos, pasas a examinar la 
situación de los materiales. Para la fabricación de los artículos producidos 
por la empresa que diriges son necesarios tres tipos de material: A, B, y C. 
Cada artículo precisa una unidad de material A, dos de material B y 


otras tres y media de material C: 


MATERIAL BRUTO EN MANO: 


A- 74 B- 82 C- 95 
PRECIO $ 3 $ 6.01 $ 4.01 


TIENES MATERIAL BRUTO SUFICIENTE 
PARA FABRICAR 27 PRODUCTOS 


QUIERES COMPRAR MAS MATERIAL BRUTO? 
(S/N) 


OK 


INTRODUCE A B C DEPENDIENDO DEL 
MATERIAL QUE DESEES 

CUANTAS UNIDADES A QUIERES COMPRAR? 
>>>? 100 

HAS COMPRADO 100 UNIDADES 


MATERIAL BRUTO EN MANO: 


A- 174 B- 82 C- 95 
PRECIO $ 3 $ 6.01 $ 4.01 


TIENES MATERIAL BRUTO SUFICIENTE 
PARA FABRICAR 27 PRODUCTOS 


QUIERES COMPRAR MAS MATERIAL BRUTO? 
(S/N) 


8 


OK 


INTRODUCE A B C DEPENDIENDO DEL 
MATERIAL QUE DESEES 

CUANTAS UNIDADES B QUIERES COMPRAR? 
>>>? 100 

HAS COMPRADO 100 UNIDADES 


JO 


MATERIAL BRUTO EN MANO: 


7 


A- 174 B- 182 C- 95 
PRECIO $ 3 $ 6.01 $ 4.01 


TIENES MATERIAL BRUTO SUFICIENTE 
PARA FABRICAR 27 PRODUCTOS 


1] 


QUIERES COMPRAR MAS MATERIAL BRUTO? 
(S/N) 


] 


OK 


INTRODUCE A B C DEPENDIENDO DEL 
MATERIAL QUE DESEES 

CUANTAS UNIDADES C QUIERES COMPRAR? 
>>>? 100 

HAS COMPRADO 100 UNIDADES 


A A e e e A O € € XP PP [o A A A A 


L] 


MATERIAL BRUTO EN MANO: 


) 
LL) 
D 
a a 
[em] 
e] 
D 
— 
-— 
m 
Z 
m 
(49) 
Y 
a 
a 
| 
N 
o" 


A- 174 B- 182 C- 195 
PRECIO $ 3 $ 5.01 $ 4.01 


1 


TIENES MATERIAL BRUTO SUFICIENTE 
PARA FABRICAR 355 PRODUCTOS 


QUIERES COMPRAR MAS MATERIAL BRUTO? 
(S/N) 


ñ 


En el informe que te ofrece el ordenador se te indica el número de 
artículos que puedes producir con los materiales que tienes almacenados. 
No obstante, la producción real dependerá del número de personas que 
tengas en plantilla: 
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OK 
EL COSTE DE PRODUCCION DE CADA 
ARTICULO ES DE $ 16 
Y CON 42 DE PLANTILLA PUEDES 
PRODUCIR 46 


QUE COTA DE PRODUCCION TE HAS FIJADO? 
>>>? 46 


ESTA SEMANA SE HA PRODUCIDO 41 
SUPONE EL 89.1 % DE LA COTA 


EA 
UJ JJ uoUJ Oo) 


Ahora ya tienes en mano los productos, dispuestos para ser vendidos. 
El sector al que pertenece esta industria cuenta con un “precio base” (que 
se ajusta cada semana de acuerdo con el índice de inflación). Cuanto más 
alto fijes el precio de tus productos en relación con ese precio base, menos 
posibilidades tendrás de venderlos. Por otro lado, bajando el precio, 
ciertamente, se aumentan las posibilidades de venta, pero, como es de 


suponer, también se reducen los beneficios: 


EL PRECIO DE VENTA ACTUAL ES $ 295 
EL PRECIO BASE EN EL MERCADO ES DE 

$ 293.3 

INTRODUCE (S) SI QUIERES SUBIR EL 
PRECIO, (B) SI QUIERES BAJARLO Y (M) 
SI QUIERES MANTENER EL PRECIO ACTUAL. 


OK 
EL PRECIO DE VENTA DE ESTA SEMANA ES 
DE $ 295 POR UNIDAD 
PULSA LA (V) PARA REALIZAR 
LA VENTA DE ESTA SEMANA 
OK 


ATENTO A LOS RESULTADOS 
TIENES 41 EN STOCK 


e € PPP € € [7 O € £ O O e e A A e A A e 


HAS VENDIDO 11 UNIDADES ESTA SEMANA 


N 
—d 
a 


Al final de la semana aparecerá un resumen de lo que has hecho en 
nombre del consejo de administración de la sociedad: 


ESTADO FINANCIERO DE TU EMPRESA AL 


TERMINAR 


] 
ol 


* TU CAFI 


LA SEMANA 1 


TAL ASCIENDE A $ 8417.6 


* AL PRINCIPIO DE LA SEMANA CONTABAS 


CON UN CA 


* EN ELA 
* AL EMPE 


1 
(ES, 


* ACTUALMENTE TIENES 42 EMPLEADOS 


) 


ASCIENDE 


PITAL DE $ 10000 


LMACEN TIENES 30 UNID. 
ZAR LA SEMANA TENIAS O 


A$ 404.27 


* CADA EMPLEADO SUPONE UN GASTO DEL 
11.5 % EN SALARIOS, LO QUE EN TOTAL 


L 


$ 5887.67 


>EMPEZASTE LA SEMANA CON $ 10000 


DE $ 3 


) 


$ 2642.67 
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>HAS VENDIDO ARTICULOS POR VALOR 


ESTA SEMANA TUS PERDIDAS ASCIENDEN A 


El consejo de administración espera que tu espléndida capacidad como 
gerente lleve a la empresa por los mejores derroteros. Este es el listado que 
te permitirá hacerlo: 


1 REM ses 06 06606 266 26M IIA 
2 REM + * 
3 REM * SOCIEDAD ANONIMA + 
4 REM + * 


FOIOI NE M6 M0 DD EH M6 II HD DE 


GOSUB 3490: REM INICIALIZACION 
SEMANA=SEMANA+1 
CLS:PRINT "ESTA ES LA SEMANA"SEMAN 


GOSUB 330: REM FINANZAS 
GOSUB 800:REM PERSONAL 
IF CAPITAL>O THEN GOSUB 1140: REM 
MATERIAL BRUTO 
GOSUB 1580: REM MANUFACTURA 
IF RND(1)>.7 AND Q<9 THEN GOSUB 18 
¿REM CONTINGENCIAS 
100 IF ALMACEN>O THEN GOSUB 2630: REM 
VENTAS 


OoCoO0OOOQo omo 
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110 GOSUB 3080:REM IMPUESTOS/GASTOS 
GENERALES 

120 IF CAPITAL-BPRESTAMO>=50000! 
160: REM CINCUENTA MIL 

130 IF CAPITAL-BPRESTAMO<O THEN 210:R 

EM BANCARROTA 

140 GOTO 30 

150 REM 363636 16-26-46 46-36 36 3362646 

160 REM CINCUENTA MIL 

170 PRINT:PRINT "ENHORABUENA, TUS GAN 

ANCIAS HAN SOBREPASADO LOS $50. 

000!'!!. HAS LLEGADO A ESTA CIFRA 
MAGICA TRAS"SEMANAS 


THEN 


180 PRINT "SEMANAS DE ACTIVIDAD MERCA 
NTIL" 

190 END 

200 REM 3303364644 463644 de 

210 REM BANCARROTA 

220 PRINT "DESGRACIADAMENTE, TE ENCUE 


O 


ooo o. Oo 


o0uD0U0DO 0 OOO 0 O0oo Oo 


O 


o. 0 O 


OOO OoO0oO0osmoOo 


NTRAS EN BANCARROTA Y HAS DE AMPARA 
RTE EN EL" 

230 PRINT "ARTICULO 11 DE LA LEY" 

240 PRINT 

250 REM 36363636 36 36-36 36 26-16 36-36 1 IE DEM LEI M6 EL MIE HI E 
260 REM EXPIRA EL'PLAZO DE 30 SEMANAS 
270 PRINT TAB(7)5"SE HA CUMPLIDO TU P 
LAzo" s 

280 PRINT "EMPEZASTE CON $10.000 Y AH 
ORA TRAS" 

290 PRINT "MUCHO ESFUERZO TIENES UN": 
PRINT "CAPITAL DE $"CAPITAL 

300 FOR J=1 TO 1000:NEXT J 

310 END 


320 REM 4443416164364 
330 REM FINANZAS 


340 PRINT "DISPONES DE UN CAPITAL DE 
$"CAPITAL 

350 PAGO=0 

360 DEVOLUC=O ; 

370 SOLICITUD=0 

380 DINERO=CAPITAL 

390 GOSUB 3850 

400 IF BPRESTAMO=0 THEN 610 

410 PRINT "DE ESTE, $"BPRESTAMO"PERTE 
NECEN":PRINT "A UN PRESTAMO BANCARIO" 
420 IF INKEYS<>"" THEN 420 


430 PRINT "QUIERES DEVOLVER TODO O PA 
RTE DE EL?"*+PRINT TAB(16)5"(S/N)>" 

440 R$=INKEYS 

450 IF R$<>"S" AND R$<>"N" THEN 440 
460 PRINT TAB(12)3 "OK" 

470 IF R$="N" THEN 610 

480 PRINT "CUANTO QUIERES DEVOLVER"; 
490 INPUT PAGO 


500-IF PAGO>CAPITAL-BPRESTAMO THEN PR 


INT "NO PUEDES DEVOLVER TANTO": GOSUB 

3850:GOTO 490 

510 IF PAGO>BPRESTAMO THEN PRINT "EL 

PRESTAMO ERA INFERIOR A ESTA CAN 


TIDAD":GOSUB 3850:GOTO 480 

520 BPRESTAMO=BPRESTAMO-PAGO: CAPITAL= 
CAPITAL-PAGO 

530 IF BPRESTAMO=0 THEN 400 

540 DEVOLUC=INT (BPRESTAMO+ (BANCO/4))/ 
100 

550 IF DEVOLUC=0 THEN 600 

560 PRINT "EL BANCO COBRA UN"BANCO"% 
"*+PRINT "DE INTERES MENSUAL" 

570 PRINT:PRINT "LOS INTERESES DE EST 
A SEMANA":PRINT "ASCIENDEN A $"DEVOLU 
c 

580 CAPITAL=CAPITAL-DEVOLUC 

590 PRINT "TRAS PAGARLOS, TIENES UN C 
APITAL":PRINT "DE $"CAPITAL 

600 GOSUB 3850: RETURN 

610 LIMITE=INT((CAPITAL-PRESTAMO) /4) 
620 IF BPRESTAMO>=LIMITE THEN 540 

630 IF INKEYS<>"" THEN 630 

640 PRINT "QUIERES PEDIR UN PRESTAMO 
AL BANCO?" 
650 PRINT 
IMITE 

660 PRINT "INTRODUCE (P) SI QUIERES S 
OLICITAR OTRO PRESTAMO O (N) SI LO 
RECHAZAS" 

670 R$=INKEYS 

680 IF R$<>"P" AND R$<>"N" THEN 670 
690 PRINT TAB(12)3 "OK" 


"PUEDES SOLICITAR HASTA $"L 


700 IF R$="N" THEN 540 

710 PRINT "CUANTO QUIERES SOLICITAR"; 
720 INPUT SOLICITUD 

730 IF SOLICITUD>LIMITE THEN PRINT "N 
O TIENES CREDITO PARA ESA CANTIDAD":G 
OSUB 3850:GOTO 720 

740 PRINT TAB(4)5"EL BANCO APRUEBA EL 
PRESTAMO" 

730 BPRESTAMO=BPRESTAMO+SOL ICITUD: CAP 
ITAL=CAPITAL+SOLICITUD 

760 GOSUB 3850 

770 IF BPRESTAMO=0 AND SOLICITUD=0 TH 
EN RETURN 

780 GOTO 540 

790 REM eee ee 

800 REM PERSONAL 

810 PRINT "TIENES"PERS"EMPLEADOS EN N 
OMINA" 

820 SALARIO=INT ( (SALARIO+2. SE-O3*SALA 
RIO)*100)/100 


830 PRINT "EL SALARIO MEDIO ES DE $"s 
ALARIO" 
840 PRINT "LO QUE SUPONE $"SALARIO*+PE 


RS"EN TOTAL" 

850 GOSUB 3850 

860 IF INKEYS$<>"" THEN 860 

870 PRINT "PULSA LA (C) SI QUIERES CO 
NTRATAR MASPERSONAL, (D) SI QUIERES D 
ESPEDIR A ALGUNOS, O (N) SI NO QUIER 
ES REALIZARCAMBIOS” 

880 TS$=INKEYS 

890 IF T$<>"C"” AND T$<>"D" AND T$<>"N 
" THEN 880 

900 PRINT TAB(12)3"0K" 

910 IF T$="N" THEN 1090 

920 IF T$="C" THEN 1020 

930 PRINT:PRINT "A CUANTOS QUIERES EC 
HAR"5 

940 INPUT Z 

950 IF Z>PERS THEN PRINT 
OSIBLE":GOTO 930 

960 PRINT:PRINT TAB(5)5"LO LLEVAREMOS 
AL SINDICATO" 

970 GOSUB 3850 

980 Z=INT(RND(1)*Z+1) 

990 PRINT "EL SINDICATO ESTA DE ACUER 
DO CON EL DESPIDO DE"Z"EMPLEADOS" 
1000 PERS=PERS-Z 

1010 GOTO 1070 

1020 REM +** CONTRATACION + 

1030 PRINT:PRINT "A CUANTOS QUIERES C 
ONTRATAR"5 

1040 INPUT Z 

1050 IF 7<1 THEN PRINT "EL DEPARTAMEN 
TO DE PERSONAL DICE QUE TE DEJES DE B 
ROMAS":GOTO 1030 

1060 PERS=PERS+Z 

1070 PRINT:PRINT "AHORA TIENES"PERS"E 
MPLEADOS EN NOMINA" 

1080 GOSUB 3850 

1090 PRINT "LA NOMINA DE ESTA SEMAMA 
ASCIENDE":PRINT "A $"SALARIO*PERS 
1100 CAPITAL=CAPITAL-SALARIO*PERS 
1110 GOSUB 3850 

1120 RETURN 

1130 REM 13636963696 1964366 I III MIR 

1140 REM MATERIAL BRUTO EN MANO 

1150 RC=INT ((RC+3E-O3*RC)*100)/100 
1160 CB=INT ( (CB+2E-O03*CB)*100)/100 


"ESO NO ES P 


oO OoOo oooO 


OO O OOOO OOO0OoO0oO0os os OooAOomOo 
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0-0: VO. 0 0. 0 1 200 0: 000 0 00000 0 00.10: 0. 0 0. 0: 0 


1170 CC=INT ((CC+4E-03*CC)*100)/100 
1180 MATERIAL=0 
1190 CAPITAL=INT(CAPITAL*100)/100 


1200 PRINT "AHORA TIENES $"INT(CAPITA 
L*100)/100 

1210 PRINT "-—===-==============-..> 
A A . 

1220 PRINT "MATERIAL BRUTO EN MANO: " 
1230 PRINT 

1240 PRINT TAB(7)5"A-"RA5TAB(16)3"B-" 
BR3TAB(26) 5 "C-"CR 

1250 PRINT "PRECIO $ "3LEFTS(STRS(RC) 
¿5)3TAB(16)3"8 "5LEFTS(STRS(CB),5)5TA 
B(26)5"$ "¡5LEFTS(STR$(CC),5) 

1260 PRINT 

1270 X=RA 

1280 IF INT(BR/2)<X THEN X=INT(BR/2) 
1290 IF INT(CR/3.5)<X THEN X=INT(CR/3 
5) 

1300 PRINT “TIENES MATERIAL BRUTO SUF 
ICIENTE" 


1310 PRINT "PARA FABRICAR"X"PRODUCTOS 


1320 IF INKEYS$<>"" THEN 1320 

1330 PRINT:PRINT "QUIERES COMPRAR MAS 
MATERIAL BRUTO?":*PRINT TAB(16)5" (S/N 
y 

1340 R$=INKEYS 

1350 IF R$<>"S" AND R$<>"N" 
1360 PRINT TAB(12)3"0K" 

1370 IF R$="N" THEN RETURN 
1380 IF INKEYS<>"" THEN 1380 
1390 PRINT:PRINT "INTRODUCE A B C DEP 
ENDIENDO DEL MATERIAL QUE DESEES 
" 


THEN 1340 


1400 R$=INKEYS 


1410 IF R$<>"A" AND R$<>"B" AND R$<>" 
C” THEN 1400 

1420 IF R$="A" THEN PRECIO=RC 

1430 IF R$="B" THEN PRECIO=CB 

1440 IF R$="C" THEN PRECIO=CC 

1450 PRINT "CUANTAS UNIDADES "R$" QUI 
ERES COMPRAR?":*PRINT ">>>"3 

1460 INPUT M 

1470 M=ABS(INT (M+.5)) 


1480 IF M*PRECIO>CAPITAL THEN PRINT " 
NO TIENES SUFICIENTE DINERO":GOTO 145 
jo] 


1490 PRINT "HAS COMPRADO"M"UNIDADES " 
As 
1500 MATERIAL=MATERIAL+M*PRECIO 


1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 


CAPITAL=CAPITAL-M*PRECIO 
IF R$="A" THEN RA=RA+M 
IF R$="B" THEN BR=BR+M 
IF R$="C" THEN CR=CR+M 
GOSUB 3850 

GOTO 1190 

E a 

REM MANUFACTURACION 
LALMACEN=ALMACEN 


1600 ARTIPRECIO=INT (1.0025*ARTIPRECIO 
*100) /100: ARTIPRECIO=INT (10*ARTIPRECI 
0)/10 

1610 PRINT "EL COSTE DE PRODUCCION DE 
CADA ARTICULO ES DE $"ARTIPREC 
10 


1620 MX=INT(PERS/NOPRODUC) 
1630 IF MX>X THEN MX=X 
16540 PRINT "Y CON"PERS"DE PLANTILLA P 
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UEDES":PRINT "PRODUCIR"MX 

1650 GOSUB 3850 

1660 PRINT "QUE COTA DE PRODUCCION TE 
HAS FIJADO?"*PRINT ">>>”;3 

1670 INPUT X 

1680 IF X>MX THEN PRINT TAB(12)5"NO0 P 

UEDES PRODUCIR TANTOS": GOSUB 3850: GOT 
O 1460 

1690 GOSUB 3850 

1700 PRINT ">ACEPTADA LA COTA DE PROD 
UCCION DE"X 

1710 GOSUB 3850 

1720 Y=INT(RND(1)+*X/5+.5) 

1730 Y=X-Y 

1740 EFECTIVO=EFECTIVO-ARTIPRECIO*Y 


1750 PRINT "ESTA SEMANA SE HA PRODUCI 
Do"Y 
1760 IF X>0 THEN PRINT TAB(6)3 "SUPONE 


EL"INT(1000*Y/X)/10"% DE LA COTA" 
1770 RA=RA-Y 

1780 BR=INT(BR-2*Y+.5) 

1790 CR=INT(CR-3.5*Y+.5) 

1800 ALMACEN=ALMACEN+Y 

1810 GOSUB 3850 

1820 RETURN 

1830 REM 4262024222626 1636161626 

1840 REM CONTINGENCIAS 

1850 Q=0+1 

1850 ON A(Q) GOSUB 1890, 1970,2070, 225 
0,2330,2390,2470,2510,2560 

1870 GOSUB 3850 

1880 RETURN 

1890 REM +%*s* COMPETENCIA + 

1900 PRINT "HA APARECIDO UN NUEVO", "C 
OMPETIDOR EN EL MERCADO" 

1910 GOSUB 3850 


1920 PRINT "PARA PODER COMPETIR CON E 
L, HAS DE DISMINUIR UN TERCIO EL PR 
ECIO DE VENTA DE LOS ARTICULOS" 


1930 PVENTA=INT (PVENTA*66.666) /100 
1940 GOSUB 3850 

1950 PRINT "TU NUEVO PRECIO BASE ES D 
E $"PVENTA 

1960 RETURN 

1970 REM ** NUEVAS REGULACIONES +*+* 
1980 PRINT "EL GOBIERNO HA INTRODUCID 
O NUEVAS" 

1990 PRINT "REGULACIONES SOBRE SEGURI 
DAD EN EL SECTOR, QUE AFECTAN A TU 
INDUSTRIA. ":GOSUB 3850 

2000 PRINT:PRINT "SU CUMPLIMIENTO ANA 
DE UN 3% AL COSTE" 

2010 PRINT "DE MANUFACTURA..." 

2020 PRINT "ANTES DE CUMPLIR CON LAS 
NUEVAS REGULACIONES, CADA UNIDAD 
TE SALIA" 

2030 PRINT "POR $"ARTIPRECIO 

2040 ARTIPRECIO=INT ((ARTIPRECIO+3*ART 
IPRECIO/100)+*100)/100 

2050 PRINT "AHORA CADA UNIDAD TIENE U 
N COSTE DE MANUFACTURA DE $"ARTIPREC 
10 

2060 RETURN 

2070 REM *% HUELGA +. 


2080 PRINT "UNA OLA DE MALESTAR LABOR 
AL RECORRE" 
2090 PRINT "LAS PLANTAS DE TU FACTORI 


A...":GOSUB 3850 ” 
2100 PRINT:PRINT “LOS SINDICATOS APOY 


O 


O 


OoO0 O OOOO OOO 00 0Os0OovoOoOOOoOoOo ooo 


00 OO OOOO OO OoOOOoOoOo 


OoOoOoOoOoO0o oso 
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AN UNA HUELGA 

s!:" 

2110 PRINT 

BIENDO..." 

2120 FOR W=1 TO 2 

2130 SEMANA=SEMANA+1 

2140 PRINT "ESTA ES LA SEMANA"SEMANA: 

GOSUB 3850 

2150 PRINT 

O, TU 

GOSUB 3850 

2160 CAPITAL=CAPITAL-INT(BPRESTAMO+ (B 

ANCO/4))/100 

2170 PRINT "TU CAPITAL ES AHORA DE $" 

CAPITAL: GOSUB 3850 

2180 SALARIO=INT((SALARIO+2. 5E-O3*SAL 

ARIO)+*100)/100 

2190 PRINT "SE HAN DE PAGAR LOS GASTO 

S GENERALES": GOSUB 3850 

2200 CAPITAL=CAPITAL-INT(GASTGEN*PERS 
*SALARIO*100)/100 

2210 CAPITAL=CAPITAL-PERS*SALARIO 

2220 PRINT "EL CAPITAL SE QUEDA EN $" 
CAPITAL: GOSUB 3850 

2230 NEXT W 

2240 RETURN 

2250 REM %** INCENDIO +* 

2260 PRINT "SE HA PRODUCIDO UN INCEND 
10", "EN EL ALMACEN" 

2270 GOSUB 3850 

2280 PRINT:PRINT "ANTES DEL INCENDIO" 
, "TENIAS"ALMACEN "UNIDADES" 

2290 ALMACEN=INT(ALMACEN/2) 

2300 PRINT "ALMACENADAS, PERO AHORA T 
E HAS QUEDADO TAN SOLO CON"ALMA 
CEN"UNIDADES" 

2310 GOSUB 3850 

2320 RETURN 

2330 REM ** MAYOR EFICIENCIA «+** 

2340 PRINT "HAS DECIDIDO HACER UNA IN 
VERSION DE $ 5.000 EN MODERNIZAR TUS 
CADENAS DE MONTAJE. " 

2350 PRINT "CON ESTO REDUCES LOS COST 
ES DE PRODUCCION EN UN 10 %X...” 
2360 CAPITAL=CAPITAL-S5000 

2370 ARTIPRECIO=INT((.9*ARTIPRECIO) +1 
00)/100 

2380 RETURN 

2390 REM +** HUELGA DE TRANSPORTES %* 
2400 PRINT "LA COMPANIA DE TRANSPORTE 
S CON LA QUETRABAJAS HA ENTRADO EN HU 
ELGA, CON LOQUE QUEDA INTERRUMPIDO EL 
SUMINISTRO DEL MATERIAL A" 

2410 GOSUB 3850 


TOTAL DE DOS SEMANA 


“PERO LOS COSTES SIGUEN Su 


“ANTES DE PAGAR EL PRESTAM 
CAPITAL ERA DE $"CAPITAL: 


2420 PRINT "TIENES QUE ACEPTAR PAGAR 
UN PRECIO MAS ALTO POR LA MANIPULAC 
ION DEL" 


2430 PRINT "MATERIAL C, 
SE SUBIRA UN"5 
2440 PRINT TAB(10)5"UN 7 % SOBRE SU C 
OSTE" 
2450 CR=INT((1.07+*CR)*100) /100 
2460 RETURN 
2470 REM ** REDUCCION DE LAS TASAS 

DE IMPORTACION 
2480 PRINT "LAS TASAS DE IMPORTACION 
SOBRE MATERIALES BRUTOS HAN SID 
O REDUCIDAS EN UN 6.5 Z" 
2490 CB=INT ((.93500018*CB)+*100)/100 


ASI QUE ESTE 


2500 RETURN 

2510 REM %se CONTAMINANTES es 

2520 PRINT "SE HA DESCUBIERTO QUE EL 
AGUA POTABLEUTILIZADA EN LAS PLANTAS 


DE LA FACTORIA ESTA CONTAMINADA 
"*¿PRINT 
2530 PRINT "EL PERSONAL EXIGE UNA IND 


EMNIZACION DE UN 1 2%" 

2540 SALARIO=INT ( (1.01 SALARIO) *100) / 
100 

2550 RETURN 

2560 REM ** ARTICULOS DEFECTUOSOS 

DESCUBIERTOS 

2570 PRINT "EL DEPARTAMENTO DE CONTRO 

L DE CALIDADHA DESCUBIERTO QUE TODA L 

A PRODUCCIONDE ESTA SEMANA ES DEFECTU 
OSA...” 

2580 GOSUB 3850 

2590 PRINT:PRINT "TU DECIDES QUE SE D 
ESTRUYAN TODAS LASPARTIDAS PRODUCIDAS 
DURANTE LA SEMANA" 

2600 ALMACEN=ALMACEN-Y 

2610 RETURN 

2620 REM 34302414 

2630 REM VENTAS 

2640 XCIEN=O 

2650 A1=1.025*+A1 

2660 PRINT "EL PRECIO DE VENTA ACTUAL 
ES $"PVENTA 

2670 PRINT "EL PRECIO BASE EN EL MERC 

ADO ES DE $" INT(10*A1)/10 

2680 IF INKEYS<>"" THEN 26480 

2690 M=0 

2700 PRINT "INTRODUCE (S) SI QUIERES 
SUBIR EL PRECIO, (B) SI QUIERES BA 
JARLO Y (M) SI QUIERES MANTENER EL PR 
ECIO ACTUAL." 
2710 R$=INKEYS 
2720 IF R$<>"S" 
Mm" THEN 2710 
2730 PRINT TAB(12)5 "OK" 
2740 IF R$="M" THEN 2810 


AND R$<>"B" AND RS<>" 


2750 PRINT "QUE PORCENTAJE QUIERES MO 
DIFICAR"5 

2760 INPUT M 

2770 IF M<O THEN 2760 

2780 M=M/100 

2790 IF R$="B" THEN M=-M 

2800 PVENTA=INT ( (PVENTA+M*PVENTA) *100 
)/100 

2810 PRINT "EL PRECIO DE VENTA DE EST 


A SEMANA ES DE $"PVENTA"POR UNIDAD" 
2820 GOSUB 3850 

2830 IF INKEYS$<>"" THEN 2830 

2840 PRINT "PULSA LA (V) PARA REALIZA 
R","LA VENTA DE ESTA SEMANA" 

2850 IF INKEYS<>"V" THEN 2850 

2860 PRINT TAB(12)5"0K" 

2870 PRINT:PRINT TAB(7)5"ATENTO A LOS 
RESULTADOS” 

2880 PRINT:PRINT TAB(9)5"TIENES"ALMAC 
EN"EN STOCK" 

2890 GOSUB 3850:GOSUB 3850 

2900 TEST=ALMACEN*A1/PVENTA 

2910 VENTA=INT(RND(1)*TEST)+1 

2920 IF VENTAX<O OR VENTA>ALMACEN THEN 
2910 

2930 PRINT "HAS VENDIDO"VENTA"UNIDADE 
S ESTA SEMANA” 


00.00 00 O OO OOOODCOOO.0OoO0o.p0opcuouo oq 0o9qo 
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2940 
2950 
2960 
2970 


CAPITAL=CAPITAL+VENTAFPVENTA 
ALMACEN=ALMACEN-VENTA 

GOSUB 3850 

IF RND(1)>.9 THEN 2990 

2980 RETURN 

2990 PRINT:PRINT "MALAS NOTICIAS DEL 
DEPARTAMENTO DE":PRINT TAB(12)5 "CONTA 
BILIDAD" 

3000 GOSUB 3850 

3010 XCIEN=INT(RND(1)%3)+INT(RND(1)+1 
00)/100 

3020 PRINT "EL"XCIEN"Z DE LOS QUE HIC 
IERON COMPRAS" 

3030 PRINT "ESTA SEMANA HAN INCUMPLID 
O SUS PAGOS" 

3040 CAPITAL=CAPITAL-INT(XCIEN*+VENTA+ 
PVENTA) /100 

3050 GOSUB 3850 

3060 RETURN 

3070 REM 1496163636 6 26 06-16 26-26-16 dd DI III 
3080 REM IMPUESTOS/GASTOS GENERALES 
3090 PRINT "ESTADO FINANCIERO DE TU E 
MPRESA AL TERMINAR LA SEMANA"SEMANA 
3100 PRINT:PRINT "%* TU CAPITAL ASCIEN 
DE A $"CAPITAL 


3110 PRINT "* AL PRINCIPIO DE LA SEMA 
NA CONTABAS" 

3120 PRINT "CON UN CAPITAL DE $"DINER 
la] 


3130 PRINT:PRINT "* EN EL ALMACEN TIE 

NES"ALMACEN"UNTD. " 

3140 PRINT "* AL EMPEZAR LA SEMANA TE 

NIAS"LALMACEN 

3150 PRINT "* ACTUALMENTE TIENES"PERS 
"EMPLEADOS" 

3160 PRINT:PRINT "* CADA EMPLEADO SUP 

ONE UN GASTO DEL  "; 

3170 M=INT (GASTGEN*PERS*SALARI0) 

3180 PRINT GASTGEN"%Z EN SALARIOS, LO 
QUE EN TOTAL":PRINT "ASCIENDE A$"M/10 

Lo) 

3190 GOSUB 3850 

3200 CAPITAL=INT(CAPITAL-M/100) 

3210 MENOS=PAGO+DEVOLUC+SALAR 10*+PERS+ 

MATERIAL+Y*ARTIPRECIO+M/100 

3220 PRINT "* ESTA SEMANA, LOS GASTOS 
HAN SIDO DES"MENOS 

3230 M=INT ( (-MENOS+VENTA*PVENTA) *100) 
/100 

3240 GOSUB 3850 

3250 PRINT TAB(2)5">EMPEZASTE LA SEMA 
NA CON $"DINERO 

3260 PRINT TAB(2)5">HAS VENDIDO ARTIC 
ULOS POR VALOR"*PRINT TAB(3)3"DE $"VE 
NTA*PVENTA 

3270 IF M<1 THEN 3390 

3280 FISCO=INT(10+M/3)/10 

3290 PRINT "TUS BENEFICIOS SEMANALES 

COMPONEN LA BASE IMPONIBLE DE LOS IMP 

UESTOS QUE HAS DE PAGAR" 

3300 PRINT:PRINT "%* EN LA SEMANA"SEM 


ANA", LOS BENEFICIOS HAN":*PRINT "SIDO 
DE $s"M 
3310 PRINT "LOS IMPUESTOS SE LLEVAN U 


N 33.33 % DELOS BENEFICIOS, ASI QUE T 


IENES QUE PAGAR $"FISCO 
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3320 CAPITAL=CAPITAL-FISCO 

3330 IF SEMANA>29 THEN 260 

3340 PRINT "TE FALTAN $"50000!-CAPITA 

L-BPRESTAMO:PRINT "PARA LLEGAR A LOS 

$ 50000":PRINT 

3350 IF INKEYS$<>"" THEN 3350 

3360 PRINT TAB(3)5"PULSA UNA TECLA PA 

RA CONTINUAR" 

3370 IF INKEYS="" THEN 3370 

3380 RETURN 

3390 M=-M 

3400 PRINT "ESTA SEMANA TUS PERDIDAS 

ASCIENDEN A $"M 

3410 GOSUB 3850 

3420 M=INT (100:*M/9)/100 

3430 IF RND(1)>.3 THEN GOTO 3350 

3440 PRINT "TE HA SIDO CONCEDIDA UNA 

SUBVENCION" 

3450 PRINT "ESTATAL DE $"M 

3460 CAPITAL=CAPITAL+M 

3470 GOTO 3350 

3480 REM 3463626143636 26 16 36d 16 6d 

3490 REM INICIALIZACION 

3500 CLS 

3510 DIM A(10) 

3520 BPRESTAMO=1000 

3530 BANCO=(5+INT(RND(1)*6))/2 

3540 CAPITAL=10000 

3550 PERS=30+INT(RND (1) *20) 

3560 GASTGEN=INT(RND(1)+*3+1)/2+10 

3570 Q=0:REM CONT. DE CONTINGENCIAS 

3580 SALARIO=INT(150+RND (1)*30) /2 

3590 REM ** EL MATERIAL EN BRUTO ESTA 
EN LA PROXIMAS SEIS LINEAS 

RA=650+INT (RND (1) +20) 

RC=3+INT(RND(1)+4) 

BR=75+INT (RND (1) +20) 

CB=4+INT(RND (1)+*3) 

CR=83+ INT (RND (1) +*20) 

CC=3+INT(RND (1)+*3) 

ARTIPRECIO=INT (12+RND (1)+5) 

NOPRODUC=INT ((RND(1)+.5)*10)/10 

3680 ALMACEN=0O 

3690 REM DISMINUCION DEL PRECIO DE 

VENTA PARA HACER EL JUEGO MAS DIFICIL 

3700 PVENTA=286+INT(RND (1) +*50) 

3710 Al=.97*PVENTA 

3720 REM ** CAMBIO DE LAS SECUENCIAS 

DE LAS CONTINGENCIAS 

FOR J=1 TO 10 

a(D)=J3 

NEXT J 

FOR J=10 TO 2 STEP-1 

Z=INT(RND(1)+J)+1 

B=A (7) 

A(Z)=A(J) 

A(J)=B 

NEXT J 

RETURN 

REM 3040302040304 

REM RETARDO 

FOR J=1 TO 1500: NEXT J 

PRINT 


RETURN 


3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 


3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 


O 
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Colonia 
subacuática 


Aunque esta simulación tiene lugar en un escenario bastante exótico 
—una cúpula submarina que sirve de habitación a toda una comunidad—, 
las decisiones que tienes que tomar están lejos de ser exóticas. La limita- 
ción de los recursos, el incremento de las necesidades y la demarcación 
cada vez más estrecha de las áreas de actividad, se combinarán convir- 
tiendo lo que parecía una sencilla tarea en una misión bastante com- 
plicada. 

El objetivo de la simulación es muy sencillo. Has de mantener con vida 
a los habitantes de la cúpula durante el mayor tiempo posible. Pero, 
aunque este objetivo pueda expresarse con unas cuantas palabras, la 
realidad es que conseguir que la comunidad viva durante más de una 
década es extremadamente difícil. 

Los residentes de la Colonia Subacuática precisan alimentos y oxígeno 
para poder sobrevivir. Su única fuente de recursos la constituyen las 
grandes figuras labradas en huesos de animales marinos que esculpen para 
la venta en el mundo exterior. Estas figuras exigen un trabajo intensísimo 
por parte de los habitantes de la colonia (en algunas ejecuciones necesita- 
rás el trabajo de cuatro personas durante todo un año para la realización 
de cada escultura), y durante su producción se consume una gran cantidad 
del preciado oxígeno. No obstante, todas las figuras realizadas se venden 
al cabo del año. 
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Además de comprar alimentos y oxígeno, cada año tienes que gastar 
cierta cantidad de dinero en el mantenimiento de la cúpula. 

El precio de los víveres y el oxígeno se fija al inicio de cada ejecución y 
no yaría a lo largo de ésta. El número de unidades de oxígeno que 
necesita para sobrevivir durante un año cada habitante de la colonia es 
fijo, al igual que la cantidad de oxígeno que se consume en la elaboración 
de cada una de las esculturas y los beneficios que éstas producen. El coste 
anual de mantenimiento de la cúpula está, asimismo, fijado de ante- 
mano. 

Sin embargo, aunque no se darán fluctuaciones en la mayoría de los 
parámetros que circunscriben tu mundo en esta simulación, lo que sí 
puede suceder es que la colonia se vea atacada por toda una variedad de 
criaturas marinas a quienes no parece gustarle en absoluto esta invasión 
de su reino acuático. Una invasión supone la desaparición de algunos de 
los habitantes de la colonia, la destrucción de una parte de las reser- 
vas de alimentos y el deterioro de la cúpula, lo que significa que antes 
de que pueda repararse empezará a haber fugas de oxígeno. Cuando ha- 
yas logrado repeler el ataque tendrás que hacer frente a unos gastos 
de mantenimiento de la cúpula superiores a los que tenías hasta en- 
tonces. 

Aquí tienes un ejemplo del tipo de informe que aparece en la pantalla y 
de las decisiones que tienes que tomar: 


INFORME NUMERO 1 SOBRE 
EL ESTADO DE LA COLONIA 


L) 


** EN EL ANO 1 HAY 110 PERSONAS 
VIVIENDO EN LA COLONIA SUBACUATICA 
-—->RESERVAS DE LA TESORERIA $ 3942 
LOS GASTOS DE MANTENIMIENTO SON DE $ 
332 
LOS TANQUES DE OXIGENO 
CONTIENEN 1100 UNIDADES 
EL COSTE DEL OXIGENO POR UNIDAD ES DE 
$ 6.3 
CADA POBLADOR NECESITA 

S UNIDADES ANUALES 

<. >LA RESERVA DE VIVERES ESTA EN 1282 


ES EL MOMENTO DE LABRAR LAS TALLAS EN 
FORMA DE PEZ PARA VENDERLAS Y 
CONSEGUIR VIVERES Y REPUESTOS 


) 


A A A A A XP € € € PP PP € PP € 1 e e A e e € e € e e o o o e 


ESTE ANO HAREMOS ANGUILAS MORENAS 
PARA HACER UNA SE UTILIZAN 

2 UNIDADES DE OXIGENO 

TU LAS VENDES POR $ 18.75 LA PIEZA 

EN CADA UNA DE ELLAS TRABAJAN 3 PERSO 
NAS 


LOS ANGUILAS MORENAS SE HAN LLEVADO 
12 UNIDADES DE OXIGENO 
(EL VALOR ES DE $ 75.6 ) 


INFORME NUMERO 2 SOBRE 
EL ESTADO DE LA COLONIA 


>ATENCION-LAS RESERVAS DE OXIGENO SON 
ESCASAS 

>ATENCION-LOS VIVERES SE HAN AGOTADO 
** EN EL ANO i HAY 110 PERSONAS 
VIVIENDO EN LA COLONIA SUBACUATICA 
-->RESERVAS DE LA TESORERIA $ 3514.5 


LOS GASTOS DE MANTENIMIENTO SON DE $ 
332 

LOS TANQUES DE OXIGENO 

CONTIENEN 1088 UNIDADES 

EL COSTE DEL OXIGENO POR UNIDAD ES DE 
$ 6.3 

CADA POBLADOR NECESITA 
S UNIDADES ANUALES 

<.>LA RESERVA DE VIVERES ESTA EN 832 


CON LA POBLACION ACTUAL DE 110 
PERSONAS, TENEMOS RESERVAS DE OXIGENO 
PARA 2 ANOS 

CUANTO OXIGENO QUIERES COMPRAR? 100 
HAY $ 630 DESEMBOLSADOS EN OXIGENO 
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INFORME NUMERO 4 SOBRE 

EL ESTADO DE LA COLONIA 

>ATENCION-LAS RESERVAS DE OXIGENO SON 
ESCASAS 

>ATENCION-LOS VIVERES SE HAN AGOTADO 
** EN EL ANO 2 HAY 114 PERSONAS 
VIVIENDO EN LA COLONIA SUBACUATICA 
-—>RESERVAS DE LA TESORERIA $ 2884.5 


LOS GASTOS DE MANTENIMIENTO SON DE $ 
332 

LOS TANQUES DE OXIGENO 

CONTIENEN 6:38 UNIDADES 

EL COSTE DEL OXIGENO POR UNIDAD ES DE 
$6.3 

CADA POBLADOR NECESITA 
3 UNIDADES ANUALES , 

<. >LA RESERVA DE VIVERES ESTA EN 832 


ES EL MOMENTO DE LABRAR LAS TALLAS EN 
FORMA DE FEZ PARA VENDERLAS Y 
CONSEGUIR VIVERES Y REPUESTOS 

ESTE ANO HAREMOS FECES MARTILLO 

PARA HACER UNA SE UTILIZAN 

2 UNIDADES DE OXIGENO 

TU LAS VENDES POR $ 18.75 LA PIEZA 

EN CADA UNA DE ELLAS TRABAJAN 3 PERSO 
NAS 

CUANTAS QUIERES LABRAR ESTA VEZ? 40 
NO HAY PERSONAS SUFICIENTES 


ur ES 


Con todo, verás que la tarea de mantener a la colonia con vida es tan 
agotadora que, en muchos casos, ésta desaparecerá, por unas razones o 
por otras, a los pocos años de su establecimiento. Esto es lo que sucede en 
la ejecución que acabamos de ver: 

INFORME NUMERO 5 SOBRE 
UN EL ESTADO DE LA COLONIA 


EL OXIGENO SE HA AGOTADO EN EL ANO 2 
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AHORA 114 PERSONAS MORIRAN ASFIXIADAS 
1 


Ok 


Si encuentras que el programa es demasiado difícil en su forma presen- 
te, por lo menos las primeras veces que lo ejecutes, otórgate más dinero al 
inicio del juego (línea 1740) y aumenta los beneficios que se obtienen con 
la venta de las esculturas (1790). 


MDI IEA HIDE IE III IET 
+ + 


* COLONIA SUBACUATICA + 
4 REM + + 
baba bobada 


1690: REM INICIALIZACION 
130: REM ACTUALIZACION DE 

LA POBLACION 
180:REM INFORME DEL 

ORDENADOR 
410:REM ACTIVIDAD COMERCIAL 
180 
730: REM VIVERES 
180 
910:REM OXIGENO 
IF RND(1)>.8 THEN GOSUB 1050: REM 

ATAQUE 
GOTO 30 
A 
REM INCREMENTO DE LA POBLACION 
AN=AN+1 
NAT IVOS=NAT IVOS+INT (NATIVOS/ (12+R 
ND(1)+*8)) 
160 RETURN 
170 REM 0146-26-26 26 6-36 26 d606 MIEAAEA 
180 REM INFORME DEL ORDENADOR 
190 INF=INF+1 
200 CLS:PRINT "INFORME NUMERO" INF "SOB 
RE":*PRINT "EL ESTADO DE LA COLONIA" 
210 GOSUB 1890 
220 IF OXIGENO<NEOX*NATIVOS THEN 1450 
¿REM FALTA DE OXIGENO 
230 IF FD<COMER*NATIVOS THEN 1510: REM 
MUERTE POR INANICION 
240 IF EFECTIVO<SO THEN 1570: REM 
TESORO VACIO 
250 IF NATIVOS<2 THEN 1640: REM NO HAY 
GENTE 

260 IF NATIVOS<13 THEN PRINT">ATENCIO 
N-LA POBLACION ESTA PROXIMA ALA EXTIN 
CION" 
270 IF OXIGENO<2*NEOX*NATIVOS THEN PR 
INT ">ATENCION-LAS RESERVAS DE OXIGEN 
O SONESCASAS"” 
280 IF FD<2*COMER*NATIVOS THEN PRINT 
">ATENCION-LOS VIVERES SE HAN AGOTADO 
» 


290 IF EFECTIVO<2000 THEN PRINT 
NCION-LAS RESERVAS DE DINERO 

N LLEGANDO A SU FIN” 

300 PRINT "%** EN EL ANO"AN"HAY"NATIVO 


“>ATE 
ESTA 


S"PERSONAS" 

310 PRINT "VIVIENDO EN LA COLONIA SUB 
ACUATICA" 

320 PRINT "-—>RESERVAS DE LA TESORERI 
A s"EFECTIVO 

330 PRINT "LOS GASTOS DE MANTENIMIENT 
O SON DE $"REPARAR 

340 PRINT "LOS TANQUES DE OXIGENO": PR 
INT “CONTIENEN"OXIGENO"UNIDADES" 

350 PRINT "EL COSTE DEL OXIGENO POR U 
NIDAD ES DE$"PRECIOXIGENO 

360 PRINT "CADA POBLADOR NECESITA": PR 
INT NEOX"UNIDADES ANUALES" 


370 PRINT "<.>LA RESERVA DE VIVERES E 
STA EN"FD 

380 GOSUB 1890 

390 RETURN 

400 REM 4036162636266 26-16-2636 IMEI 

410 REM ACTIVIDAD COMERCIAL 

420 T=INT(RND(1)*10) 

430 F$="TIBURONES BLANCOS" 

440 IF T=0 THEN F$="PECES MARTILLO” 
450 IF T=1 THEN F$="ANGUILAS MORENAS" 
460 IF T=2 THEN F$="PECES LEON ESPINO 
so" 

470 IF T=6 THEN F$="BACALAOS PAVO REA 
L” 

480 IF T=7 THEN F$="FUSILEROS VERDES" 
490 IF T=8 THEN F$="DULCES LABIOS" 
500 PRINT "ES EL MOMENTO DE LABRAR LA 


S TALLAS ENFORMA DE PEZ PARA VENDERLA 
Ss y" 

510 PRINT 
TOS" 

520 GOSUB 1890 

530 PRINT "ESTE ANO HAREMOS "5Fs$ 

540 PRINT "PARA HACER UNA SE UTILIZAN 
":+PRINT AC"UNIDADES DE OXIGENO" 


"CONSEGUIR VIVERES Y REPUES 


550 PRINT "TU LAS VENDES POR $"AP"LA 
PIEZA" 

560 PRINT "EN CADA UNA DE ELLAS TRABA 
JAN"NO"PERSONAS" 

570 GOSUB 1890 

580 PRINT "CUANTAS QUIERES LABRAR EST 
A VEZ"; 

590 INPUT B 

600 IF B=0 THEN GOSUB 1890: RETURN 

610 IF B*AC>OXIGENO THEN PRINT "NO HA 
Y SUFICIENTE OXIGENO PARA ESA CANTI 
DAD":GOTO 570 

620 IF B*NO>NATIVOS THEN PRINT "NO HA 


Y PERSONAS SUFICIENTES":GOTO 570 


o0ouDU0DUO0O0O O OO O O O O OOO .OO O 


00. .0000)0O00O0O OOOO O OOOO O0OoO0OOosOomOo 
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630 GOSUB 1890 

640 PRINT "HAY"3B3F$5" LABRADOS":GOSU 

B 1890 

650 PRINT "LOS HAS VENDIDO POR $"Bx*AP 
:GOSUB 1890 

660 PRINT "LOS "F$" SE HAN LLEVADO" 

670 PRINT B*AC"UNIDADES DE OXIGENO":P 

RINT "(EL VALOR ES DE $"B*AC+*PRECIOXI 

GENO")" 

680 EFECTIVO=EFECTIVO+B+*AP 

690 OXIGENO=0X IGENO-B+*AC 

700 GOSUB 1890 

710 RETURN 

720 REM eme” 

730 REM VIVERES 

740 PRINT "LOS VIVERES CUESTAN $"FC"P 

OR UNIDAD" 

750 PRINT "CADA POBLADOR DE LA COLONI 
A NECESITA"COMER"UNIDADES ANUALES" 
760 PRINT "($"FC*COMER"CADA UNO, $"FC 
*COMER*NATIVOS"EN TOTAL)" 

770 PRINT "LOS VIVERES ALMACENADOS PU 
EDEN DURAR" INT (. 5+FD/ (COMER*NATIVOS) ) 
“ANOS" 

780 PRINT "CON LA POBLACION ACTUAL DE 
"NATIVOS"PERSONAS" 

7790 GOSUB 1890 

800 PRINT "CUANTAS UNIDADES DE VIVERE 
S QUIERES COMPRAR"5 

810 INPUT C 

820 IF C=0 THEN 880 

830 IF C*FC>EFECTIVO THEN PRINT "NO T 
E LLEGA CON EL DINERO QUE TIENES": GOS 
UB 1890:GOTO 800 

840 PRINT "HAS DESEMBOLSADO $"C*FC"PA 
RA VIVERES":GOSUB 1890 

850 PRINT C"UNIDADES DE VIVERES HAN S 
IDO ANADIDAS A LAS RESERVAS" 

860 FD=FD+C 

870 EFECTIVO=EFECTIVO-C*FC 

880 FD=FD-COMER+*NATIVOS 

890 RETURN 

900 REM 404636 146 36-26-36 36-36 16 36 26-36 6 166 26d 

910 PRINT "CON LA POBLACION ACTUAL DE 
“NATIVOS 

920 PRINT "PERSONAS, TENEMOS RESERVAS 
DE OXIGENOPARA" INT (. 5+0X IGENO/ (NEOX+* 
NATIVOS) >) "ANOS" 

930 PRINT "CUANTO OXIGENO QUIERES COM 
PRAR"5 

940 INPUT D 

950 IF D=0 THEN 990 

960 IF D*PRECIOXIGENO>EFECTIVO THEN P 
RINT "LA TESORERIA NO PUEDE PAGAR TAN 
TO":*GOSUB 1890:GOTO 930 

970 OXIGENO=0XIGENO+D 

980 EFECTIVO=EFECTIVO-D*PRECIOX IGENO 
990 OXIGENO=0X IGENO-NAT IVOS*NEOX 

1000 PRINT "HAY $"D*PRECIOX IGENO"DESE 
MBOLSADOS EN OXIGENO":GOSUB 1890 
1010 PRINT D"UNIDADES DE OXIGENO HAN 
SIDO":PRINT "ANADIDAS A LOS TANQUES" 
1020 GOSUB 1890 

1030 RETURN 

1040 REM 34363636364 

1050 REM ATAQUE 

1060 K=INT(RND (1)+9) 

1070 N$="BARRACUDA NEGRA" 

1080 IF K=0 THEN N$="BUDION NAPOLEONI 
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1090 IF K=1 THEN N$="RAYA ASUSTADIZA" 
1100 IF K=2 THEN N$="PEZ BALLESTA" 
1110 IF K=3 THEN N$="PEZ CIRUJANO" 
1120 IF K=4 THEN N$="IDOLO MORO" 

1130 IF K=5 THEN N$="QUELONIO" 

1140 IF K=6 THEN N$="CAURI OCULTO" 
1150 IF K=7 THEN N$="FUSILERO DE LA L 
UNA" 

1160 PRINT "PELIGRO!! PELIGRO!! PELIG 
ROI" 

1170 GOSUB 1890 

1180 PRINT "UN GIGANTESCO "5N$5" ESTA 
1190 PRINT "INTENTANDO ROMPER LAS PAR 
EDES DE LA COLONIA" 

1200 GOSUB 1890 

1210 PRINT "EL "3N$35" HA TRASPASADO L 
A PARED!" 

1220 GOSUB 1890 


1230 MUERTE=INT (NATIVOS/(RND(1)*35+4) 
)+2 

1240 DESPERFEC=INT(RND (1)*EFECTIVO/9) 
1250 IF EFECTIVO-DESPERFEC<1 THEN DES 
PERFEC=0 

1260 DD=INT(RND(1)+*FD/2)+2 

1270 DOXIGENO=INT (RND (1) *0XIGENOD/2) 
1280 PRINT "HAN MUERTO"MUERTE "POBLADO 
RES SUBACUATICOS" 

1290 NATIVOS=NAT IVOS-MUERTE 
1300 GOSUB 1890 

1310 IF DESPERFEC>O THEN PRINT 
ANOS EN LA ESTRUCTURA DE LA 

IA ASCIENDEN A $"DESPERFEC 
1320 GOSUB 1890 

1330 EFECTIVO=EFECTIVO-DESPERFEC 

1340 PRINT DD"UNIDADES DE VIVERES HAN 
SIDO"PRINT "DESTRUIDAS" 

1350 GOSUB 1890 

1360 FD=FD-DD 

1370 PRINT DOXIGENO"UNIDADES DE OXIGE 

NO SE HAN ESCAPADO" 

1380 PRINT "ANTES DE PODER REPARAR LA 
S GRIETAS ENLAS PAREDES DE LA COLONIA 


"LOS D 
COLON 


1390 
1400 
1410 
1420 
1430 
1440 
1450 


GOSUB 1890 
OX IGENO=0X IGENO-DOX IGENO 
REPARAR=REPARAR+ INT (RND (1)*30+4) 
RETURN 
E ad 
REM FIN DEL JUEGO 
REM %** MUERTE POR FALTA 

DE OXIGENO 
1460 PRINT As$ 
1470 PRINT "EL OXIGENO SE HA AGOTADO 
EN EL ANO"AN 
1480 GOSUB 1890 
1490 PRINT "AHORA"NATIVOS"PERSONAS MO 
RIRAN ASFIXIADAS!" 
1500 END 
1510 REM ** MUERTE POR INANICION ++. 
1520 PRINT As 
1530 PRINT "LOS VIVERES SE HAN AGOTAD 
O EN EL ANO"AN 
1540 GOSUB 1890 
1550 PRINT "AHORA"NATIVOS"PERSONAS MO 
RIRAN DE HAMBRE" 
1560 END 
1570 REM +** MUERTE POR FALTA 


Oo0 O OOOJDO OOOO O Oo OO O.OA O OA OO OA OA OA Oo O 


O 
O 
O 
O 
O 
O 
O 


DE DINERO 
1580 PRINT As 
1590 PRINT "LA TESORERIA SE QUEDO SIN 
FONDOS EN EL ANO"AN 
1600 GOSUB 1890 
1610 PRINT ”ASI QUE AHORA MORIRAN LAS 
"“NATIVOS"PERSONAS QUE QUEDAN" 
1620 PRINT "Y QUE CONFIABAN EN TI" 
1630 END 
1640 REM +% MUERTE DE LOS NATIVOS se 
1650 PRINT "TU ERES EL UNICO SUPERVIV 
IENTE DE LA" 
1660 PRINT "COLONIA SUBACUATICA. . .HAS 
TRAICIONADO EL JURAMENTO QUE HICIERA 
S AL ACEPTAR TAN ALTA RESPONSABILIDAD 


16570 END 

1680 REM 163636 46-16-16 16-26-26-2-26-30 3636 

16590 REM INICIALIZACION 

1700 CLS 

1710 AN=0 

1720 A$="LA COLONIA SUBACUATICA ESTA 


MUERTA...” 


1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1850 
1870 


NAT IVOS=INT (80+RND (1) +40) 
EFECTIVO=INT (3900+RND (1) 400) 
FD=INT (RND (1) 500) +900 
FC=INT(RND(1)47+1)+.4 
COMER=INT (RND (1)+5+2) 
AC=INT (RND (1) +5+2) 

AP=INT (RND(1)*AP+18)+.75 

OX IGENO=INT (3000-—RND (1) 2000) 
NEOX=INT(RND (1)+4+3) 

PRECIOX IGENO=INT(RND (1)+7+3)+.3 
IF AC*PRECIOXIGENO>=AP THEN 1780 
REPARAR=INT (200+RND (1)+400) 
INF=0 

NO=INT (2+RND (1) +3) 

RETURN 

REM eee 

REM RETARDO 

FOR J=1 TO 1200: NEXT J 


RETURN 


oOooOo0OoOQoO0osomsOo 
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Parte VII 
Como diversión 


SQUISHER Y SOUASHER 
QUIEN PUEDE MAS 
CORTA Y CAMBIA 


JUEGO DE BOLOS 
PARA PROBAR TUS REFLEJOS 


TELEPATIA 


25 


ulsher y 
Squasher 


Squisher y Squasher son dos criaturas diábolicas que sólo buscan tu 
destrucción a medida que vas avanzando por un endemoniado laberinto 
intentando sobrevivir el mayor tiempo posible. Según te mueves de aquí 
para allá has de tratar de saltar sobre todos los puntitos que salgan a tu 
encuentro ya que así los podrás ir añadiendo a tu marcador. No consegui- 
rás ningún punto por el simple hecho de lograr sobrevivir. 

Al ir en tu busca Squisher y Squaser (disfrazados, en esta versión, con 
los símbolos “$” y “?”) dejan todo un rastro de nuevos puntos. Por tanto, 
si consigues llevarlos hacia aquellas zonas en las que ya no quedan puntos, 
puedes volver a “comer” los nuevos sumándote así más puntos en el 
marcador. 

En este volcado tenemos una partida recién comenzada (tú, la “H”, te 
encuentras en la esquina superior izquierda de la pantalla, Squasher, el 
“$”, está en la esquina superior derecha, y Squisher, el “?”, en la esquina 
inferior del mismo lado, acaba de avanzar una casilla en diagonal. 


> Squisher esta a 1414.2 del humano ES! 
> Squasher esta a 1100 del humano EA 
>Tu puntuacion es O Y) 
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EA cra SS RERTER” o os 
A, AO E 
E E . . .o..2.02.2x2..>2 
HH. HH... HH Ho... 
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o Aa A 
L HH HO AA 
A A 
: HR A 
A a ENTRAR 
LY) as a a 


Como ves, el programa mide la distancia a la que se encuentran de ti 
las dos temibles ciaturas.. 

Unos segundos después, tú has empezado a “comer” algunos puntos 
que en total marcan 85) y $ y ? siguen avanzando inexorablemente ha- 
cia ti: 


e 


> Squisher esta a 141.4 del humano 
> Squasher esta a 412.3 del humano 
>Tu puntuacion es 289 


L]+ 


. . [. H 
HH. . 
. . $ 


-.- 


UR E 
LI LJ) 
S" ">. 


+ 
4H... + 
FARAETAARAA 
E 
E- . 
E- 


+ 3% 
xx. 
E 

HF». + 
SY". + 
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La cosa se pone difícil, pero tú te las arreglas para seguir vivo, 
sobrepasando, además, el máximo de puntos alcanzado con anterioridad: 


> Squisher esta a 100 del humano 
> Squasher esta a 100 del humano 
>Tu puntuacion es 2108 


L 


+ o + UNAS 
RR. .RHHSH. +. Y) 
TE E OA y 
ERA HUBO. 
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Sin embargo, la “muerte” es algo inevitable y al poco tiempo desapare- 
ces de la faz de la pantalla: 


> Squisher esta a O del humano PA 
> Squasher esta a 141.4 del humano [] 
>Tu puntuacion es 2108 
$ as + 
O E A Po) 
Ho. . $ $ tu. $. lu) 
2 a ED > a 
RR.HH. . HH AH. 
a o H A 
E E == 
E EA 
+4 HH. +4 . $ 
A O E TE PON 
. $ + Ho. lu) 


Squisher y Squasher te han vencido 


Tu puntuacion es: 2108 o 


Has hecho 2108 puntos A, 


Se observará que el laberinto cambia ligeramente de una partida a 
otra. Por otro lado, se observará asimismo que ni el jugador, ni los dos 
terribles monstruitos, pueden saltar las vallas del laberinto (representadas 
mediante el símbolo F). No obstante, mientras tú sólo puedes mover 
hacia arriba, hacia abajo, hacia la derecha y hacia la izquierda, los dos 
protagonistas también pueden hacerlo en diagonal, si ese es su deseo. 
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Las claves de control son: 


A para subir 

Z para bajar 

, para avanzar hacia la izquierda 
para avanzar hacia la derecha 


Si quieres modificar la inteligencia de los señores Squisher y Squasher 
no tienes más que jugar un poco con las cifras que aparecen después de 
los RND(1) de las líneas 220, 250, 330 y 360. Cuanto más alto sea este 


número más despiadada será la persecución. 


JUGADOR 


H 1 REM 30626 de 362 de 26d E 16 MI Ad ME MA :¿E2=Y 

O | OZ REMO * 410 A(X,Y)=46 LO 
|. 3 REM * SQUISHER Y SQUASHER * 420 A(E1,E2)=36 ; 
1-4 REM * * 430 RETURN y 

O DEM 62606 0-66 066-9696 0-66 440 REM 300 060646 2626 26 26 16 26 266 HE 06 A 6 0 ! ¡e 
|. 10 REM 450 REM IMPRESION DEL TABLERO A 
h 20 GOSUB 750:REM INICIALIZACION 460 CLS:PRINT:PRINT ' 

o) 1 30 GOSUB 450:REM IMPRESION DEL 470 PRINT "> Squisher esta a"INT(1000 ] O 
| TABLERO *SOR ( (H1-C1)+*(H1-C1)+(H2-C2)* (H2-C2)) ; 
!. 40 GOSUB 200:REM MOVIMIENTOS DEL )/10"del humano” ] 

O ] ORDENADOR 480 PRINT "> Squasher esta a"INT(1000 n O 
50 GOSUB 450:REM IMPRESION DEL *SQR ( (H1-E1)+(H1-E1)+(H2-E2) * (H2-E2)) 
] TABLERO )/10"del humano" ] 

O ] 60 IF C1=H1 AND C2=H2 THEN 100 490 PRINT ">Tu puntuacion es"PU; ¡O 
¡ 70 IF El=H1 AND E2=H2 THEN 100 500 IF HS>0 THEN PRINT "Su puntuacion ¡ 

Il. 80 GOSUB 610: REM MOVIMIENTOS DEL es: "HS ELSE PRINT ' 
O! JUGADOR 510 PRINT . O 
; 90 GOTO 40 520 FOR C=1 TO 12 ' 

! 100 PRINT "Squisher y Squasher te han 530 FOR B=1 TO 12 ¡ 
O¡ vencido!" 540 PRINT CHR$(A(B,C))3" "3 ¡O 
h 110 PRINT:PRINT "Tu puntuacion es: "PU 550 NEXT B l 

O | 120 IF PU>HS THEN HS=PU 560 PRINT : 
¡ 130 PRINT:PRINT "Has hecho"HS"puntos" 570 NEXT C O 
1 140 FOR Z=1 TO 2000:NEXT Z 580 RETURN | 
! 150 RESTORE 590 REM 36406 06 16 26 06 6 6 16 HE HD DIH MA | 

O ¡ 1650 GOSUB 800 600 REM MOVIMIENTO DEL JUGADOR h O 
1 170 GOTO 30 610 IF INKEYS$<>"" THEN 610 1 
180 END 620 A$=INKEYS 

O : 190 REM 364646 d 26 26 366 de HH III IMA 630 IF A$="" THEN 620 O 
: 200 REM MOVIMIENTO DE S y S 640 G=H1: F=H2 ] 
1 210 X=C1:Y=C2 £50 A(H1,H2)=32 ' 

O 1 220 IF RND(1)>.7 THEN 250 660 IF AS$="," THEN H1=H1-1:1F H1=0 TH ! O 
! 230 IF C1>H1 THEN C1=C1-1 EN H1=1 ; 
1 240 IF C1<H1 THEN C1=C1+1 670 IF A$="." THEN H1=H1+1: IF H1=13 T 1 

O , 250 IF RND(1)>.75 THEN 280 HEN H1=12 ¡O 
1. 260 IF C2>H2 THEN C2=C2-1 680 IF As$="A" THEN H2=H2-1: IF H2=0 TH ! 
¡ 270 IF C2<H2 THEN C2=C2+1 EN H2=1 ' 

O 1 280 M=A(C1,C2) 690 IF A$="Z" THEN H2=H2+1: 1F H2=13 T | O 
¡ 290 IF M=72 OR M=36 OR M=35 THEN C1=X HEN H2=12 ! 
' :C2=Y 700 IF A(H1,H2)=35 THEN H1=G: H2=F ' 

O l 300 A(X,Y)=46 710 IF A(H1,H2)=46 THEN PU=PU+17 LO 
!. 310 A(C1,C2)=63 720 A(H1,H2)=72 | 
1 320 X=E1:Y=E2 730 RETURN ' 

O 1 330 IF RND(1)>.7 THEN 360 740 REM RANA ¡O 
1 340 IF El>H1 THEN El=E1-1 750 REM INICIALIZACION ' 

' 350 IF E1<H1 THEN El=E1+1 760 CLS : 
Oi 360 IF RND(1)>.75 THEN 390 770 DEFINT A-Z O 
l 370 IF E2>H2 THEN E2=E2-1 780 HS=0:REM PUNTUACION MAXIMA ' 
|. 380 IF E2<H2 THEN E2=E2+1 790 DIM A(12,12) ! 

O 390 M=A(E1,E2) 800 H1=1:H2=1:REM COMIENZO DEL O 

Ú 
Ú ' 


400 IF M=72 OR M=63 OR M=3S5 THEN El=X 


230 


0.0 OO O O 


810 C1=12:C2=12:REM COMIENZO DEL 
SQUISHER 

820 El=12:E2=1:REM COMIENZO DEL 
SQUASHER 

830 FOR B=1 TO 12 

840 FOR C=1 TO 12 

850 A(B,C)=46:REM "." 

860 NEXT C 

870 NEXT B 

880 FOR B=1 TO 54 

890 READ C,D 

900 A(C,D)=35:REM "4" 

910 NEXT B 

920 FOR T=1 TO 25 

930 A(CINT(RND(1)*12+1)), CINT(RND(1)+ 

12+1)))=45 

940 NEXT T 

950 A(H1,H2)=ASC("H") 


1000 


960 A(E1,E2)=ASC ("$") 
970 A(C1,C2)=ASC("2") 
980 PU=0 

990 RETURN 


DATA 


3,1,10,1,3,2,5,2,6,2,7,2,8, 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


10,2,2,3,3,3,5,3,8,3,9,3,11 


5,4,5,8,1,5,3,5,4,5,5,5 
9,5,10,5,12,5,9,7 
3,6,5,6,12,56,2,8,3,8 
9,8,10,8,11,8,7,9,12,9 


8,5, 
1,6, 
4 1] 
1,10,2,10,10,10,5,10,7,10,1 


, 
, 
, 
, 
, 


»11,9,11,10,11,12,11 
,12,4,12,5,12,11,12,1 


ooO0o0Oo oo Oo 
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26 
Quién 
puede más 


Este juego se trata de una reñida lucha entre tu privilegiada mente 
matemática y la del ordenador para ver quién logra dominar numérica- 
mente al otro. 

Al inicio del juego el ordenador te asigna un número y después se 
asigna otro a sí mismo, ambos muy altos y escogidos al azar. Tú sabes, 
por supuesto, cuál es tu número, pero desconoces el del ordenador. 

El objetivo del juego es sobrepasar un millón de veces el número del 
otro contrincante, para lo cual van quitándose el uno al otro cantidades 
siguiendo un riguroso turno de peticiones. Por ejemplo, supongamos que 
el número del ordenador era 104637 y que tú le dices “Dame los seis que 
tengas”; como el número del ordenador tiene un seis, podrás añadir 600 a 
tu propio número al tiempo que el ordenador habrá de restar esa misma 
cantidad en el suyo. Si le hubieras pedido sus unos, hubieras podido 
sumar 100000 a tu cantidad (y, muy probablemente, en ese caso hubieras 
ganado). 

Veamos ahora los cambios de suerte que tuvieron lugar al final del 
juego en esta ejecución: 


Tu numero es 212407 == 
Por favor, dame tus 8 Ed 
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Job 


OK 


Tu numero es ahora 212407 
Que numero quieres? 3 


Ahi los tienes 


Tu numero es 212410 


Por favor, dame tus 5 


OK 


Tu numero es ahora 212410 
Que numero quieres? 4 


Ahi los tienes 


Tu numero es 212810 


Por favor, dame tus 3 


OK 


Tu numero es ahora 212810 
Que numero quieres? 5 


Lo siento, no tengo ninguno 


Tu numero es 212810 


Por favor, dame tus 3 


OK 


Tu numero es ahora 212810 


Que numero quieres? 7 


El 
LY) 


Lo siento, no tengo ninguno 


Tu numero es 212810 


1) 


Por favor, dame tus 5 


OK 


B 


Tu numero es ahora 212810 


8 


Que numero quieres? 8 


Ahi los tienes 


Tu numero es 220810 


[] 


Por favor, dame tus 8 


] 


Gracias! 


Tu numero es ahora 220010 


Que numero quieres? 9 


a 


Ahi los tienes 


Tu numero es 220100 


L 


Por favor, dame tus 2 


L) 


Gracias! 
Tu numero es ahora 100 


Que numero quieres? 9 


Lo siento, no tengo ninguno 
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ga 


Tu numero es ahora 100 


L 


Que numero quieres”? 9 


Lo siento, no tengo ninguno 


Ll 


Hemos llegado al final del juego 


Yo he ganado esta partida... 


a 


Mi numero final era 380800 
El tuyo era 100 


) 


Este es el resumen de la partida: 


Tu: 212407 Yo: 212408 
== Tu: 212410 Yo: 212411 
UN Tu: 212810 Yo: 212811 
UL) Tu: 212810 Yo: 212811 


Tu: 212810 Yo: 212811 
Tu: 220010 Yo: 220011 


E Tu: 100 Yo: 101 
rl) Tu: 100 Yo: 380800 


Este es el listado: 


170 C1=C1-M*C(X) 
180 H1=H1-M*H (X) 


1 
390 MARC=MARC+1 


| 1 REM 10616366366 dd A 16 E 190 M=M/10 | O 
O 1 2 REM * * 200 NEXT X | 

¡ 3 REM * QUIEN PUEDE MAS + 210 C1=0:H1=0 ' 

1.4 REM + * 220 M=INT(RND(1)+8)+2 ] O 
O n RN 230 Y=1:FL=0 1 

i 10 REM 240 PRINT:PRINT "Por favor, dame tus" : 

' 20 DIM H(7),C(7),P(1000) M r O 
O 1 30 CLS:PRINT 250 FOR K=1 TO 1000:NEXT K I 

i 40 H1=INT(10"5%RND (1)*9+10%*RND(1)+999 260 PRINT:PRINT ! 

' 9+RND (1) 9999) 270 FOR X=1 TO 7 ] O 
O 1 50 PRINT "Atento..." 280 IF H(X)=M THEN C1=C1+Y*H(X):H(X)= ] 

' 60 C1=1075+10* INT (RND(1)+9999) +INT (RN O: FL=1 i 

; D(1):9999) 290 Y=10*Y 1 
O 1 70 IF ABS(C1-H1)>10%*—5 THEN 40 300 NEXT X 1 O 

; 80 MARC=0 310 IF FL=1 THEN PRINT TAB(8)5"Gracia ! 

1 90 CLS s!" ELSE PRINT TAB(9)3"0K":*PRINT ' 
O | 100 PRINT:PRINT 320 Y=1 ¡0) 

i 110 PRINT "Tu numero es"H1 330 FOR X=1 TO 7 I 

| 120 M=10"%6 340 H1=H1+Y*H(X) ! 
O 1 130 FOR X=7 TO 1 STEP-1 350 C1=C1+Y*C(X) 1 O 

! 140 H(X)=0:C(X)=0 360 Y=10*Y l 

¡ 150 C(X)=INT(C1/M) 370 NEXT X 1 
O | 160 H(X)=INT (H1/M) 380 PRINT:PRINT "Tu numero es ahora"H | O 

] 

A 1 
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400 P (MARC) =H1 

410 MARC=MARC+1 

420 PRINT:PRINT "Que numero quieres"; 
430 P(MARC)=C1 

440 INPUT NUMERO 

450 IF NUMERO=1 OR NUMERO>9 THEN 440 

460 PRINT 

470 M=10%6 

480 FOR X=7 TO 1 STEP-1 

490 H(X)=0:C(X)=0 

500 C(X)=INT(C1/M) 

510 H(X)=INT (H1/M) 

520 C1=C1-M*C (X) 

530 Hi=H1-M*H(X) 

540 M=M/10 

550 NEXT X 

560 H1=0:C1=0 

570 FL=0: Y=1 

580 FOR X=1 TO 7 

590 IF NUMERO=C(X) THEN H1=H1+Y+*C(X) 2 
C(X)=0:FL=1 

600 Y=10*Y 

610 NEXT X 

620 IF FL=1 THEN PRINT TAB(4)5"Ahi lo 
s tienes" ELSE PRINT TAB(7)5"Lo sient 
o, no tengo ninguno" 


630 FOR X=1 TO 1500:NEXT X 


640 Y=1 

650 FOR X=1 TO 7 

660 H1=H1+Y*H (X) 

670 C1=C1+Y*C(X) 

680 Y=10*Y 

690 NEXT X Ñ 
700 IF ABS(H1-C1)<107*5 THEN 90 


710 PRINT:PRINT "Hemos llegado al fin 
al del juego" 

720 PRINT:PRINT 

730 IF H1>C1 THEN PRINT "Tu has ganad 
o esta partida..." 

740 IF C1>H1 THEN PRINT "Yo he ganado 
esta partida..." 

750 PRINT:PRINT "Mi numero final era" 
ci 

760 PRINT TAB(8);”El 
T 

770 PRINT "Este es el resumen de la p 
artida:" 

780 FOR T=1 TO MARC STEP 2 

790 PRINT "Tu: "P(T),"Yo: "P(T)+1 

800 FOR Y=i TO 100:NEXT Y 

810 NEXT T 

820 PRINT "Tu: "H1,"Yo:"C1 


tuyo era"H1:PRIN 


C 


OoOOoOOoOoo0os<.o.om0 
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Este pequeño programa, pese a su gran sencillez, es mucho más diverti- 
do de lo que uno pudiera pensar a primera vista. 
El ordenador generará una serie aleatoria de O y X; algo así: 


XXOXOXXO n= 
12345678 [) 

E 
QUE NUMERO VAS A CAMBIAR? 4 Ll) 


Escondido en lo más profundo de su metálica mente, el ordenador 
tiene una clave que determina qué símbolos cambian cuanto tú introduces 
un número (que ha de ser mayor que cero): 


XXOXOXXO 7 
12345478 LL) 
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240 


O 


TRAS LA JUGADA 1 


) 


TIENES 3 CORRECTOS 


QUE NUMERO VAS A CAMBIAR” 6 


Ed 


XOOXOXXO 


12345678 


TRAS LA JUGADA 2 


TIENES 4 CORRECTOS 


[) 


QUE NUMERO VAS A CAMBIAR? 5 


Tu objetivo es conseguir que todas las X pasen a ser 0. En la ejecución 
que estamos viendo, esto no tarda mucho en suceder: 


ODOOO0OOXOOD 


12345678 


;ER 


TRAS LA JUGADA 6 
TIENES 7 CORRECTOS 


QUE NUMERO VAS A CAMBIAR? 1 


00000000 


12345678 


LO HICISTE EN 7 MOVIMIENTOS 


Ñ 
¡E 


EL MEJOR HASTA AHORA ES 7 


Cuando lo hayas ejecutado unas cuantas veces, empezarás a compren- 
der el funcionamiento del juego y enseguida deducirás qué números son 
los que tienes que introducir para conseguir que la serie se modifique a tu 
gusto. Algunas veces, sin embargo, no resulta tan fácil: 


OX0000ODO 


12345678 


RER 
¡E A 


TRAS LA JUGADA 10 


TIENES 7 CORRECTOS 


1) 


QUE NUMERO VAS A CAMBIAR? 9 


ONO 
E 


O0000000 


12345678 


4 


LO HICISTE EN 11 MOVIMIENTOS 


Ñ 


EL MEJOR HASTA AHORA ES 7 


Observa, también, que en la línea 310 se ha introducido un pequeño 
elemento de aleatoriedad a fin de que no te duermas en los laureles: 


24 


bh 


REM 0662620026 06066 290 IF P>9 THEN P=P-9: GOTO 290 
REM + * 300 IF P<O THEN P=P+9: GOTO 300 
REM * CORTA Y CAMBIA + 310 IF A(P)=88 AND RND(1)>.1 THEN A(P 
REM + * )=79 
REM 260626066 IA 320 RETURN 
REM 330 REM 3369623636 26-136 26 d626 6d 16 M6 HEM IM 0 
HS=1000 340 REM COMPROBACION DE RESULTADOS 
DIM A(9) 350 FL=0 
GOSUB 530:REM INICIALIZACION 360 MOV=MOV+1 
GOSUB 110:REM IMPRESION PANTALLA 370 FOR Z=1 TO 8 
GOSUB 250: REM MOV. DEL JUGADOR 380 IF A(Z)=79 THEN FL=FL+1 
GOSUB 110:REM IMPRESION PANTALLA 390 NEXT Z 
GOSUB 340: REM COMPROBACION DE LOS 400 IF FL=8 THEN 450: REM GANADOR 
RESULTADOS 410 PRINT:*PRINT "TRAS LA JUGADA"MOV 
GOTO 40 420 PRINT:PRINT "TIENES"FL"CORRECTOS" 
100 REM 46361 3636 36 dd dd 6H 6H 430 RETURN 
110 REM IMPRESION DE PANTALLA 440 REM 364464021040 
120 CLS 450 REM GANADOR 
130 IF HS<>1000 THEN PRINT:PRINT "EL 460 PRINT:PRINT 
MEJOR HASTA AHORA ES EL"HS 470 PRINT "LO HICISTE EN"MOV"MOVIMIEN 
140 GOSUB 200 TOS" 
150 FOR J=1 TO 8 480 IF MOV<HS THEN HS=MOV 
160 PRINT CHR$(A(JD))33" "3 490 PRINT:PRINT "EL MEJOR HASTA AHORA 
170 NEXT J ES"HS 
180 PRINT:PRINT 500 FOR T=1 TO 2000: NEXT T 
190 PRINT "1234565678" 510 GOTO 40 
200 FOR J=1 TOS 520 REM 43046 4646 36-34 36 16 36-16 6302 
210 PRINT 530 REM INICIALIZACION 
220 NEXT J 540 FOR J=1 TO 8 
230 RETURN 550 A(J)=88 
240 REM 46496606 46 96 260616 M IIA 560 IF RND(1)>.6 THEN A(J)=79 
250 REM MOVIMIENTO DEL JUGADOR 570 NEXT J 
260 PRINT 580 MOV=0 
270 INPUT "QUE NUMERO VAS A CAMBIAR"; 590 X=INT(RND(1)+7)+1 
P 600 RETURN 
280 P=P+X 


O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
0) 
O 


OO. OO OOOO OA oooO 
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Juego 
de bolos 
para probar 
tus reflejos 


¿Qué te parece un programa que sea dos en uno? Este te permite jugar 
a los bolos (de una determinada manera), al tiempo que comprueba tus 
reflejos. 

Al ejecutar el programa verás diez bolos en la pantalla, dispuestos de 
esta forma: 


EN ESTE TRIANGULO 


HAS MARCADO O PUNTOS UN 


ESTE ES EL TRIANGULO 1 BOLA 1 


= 
0000 [>] 
DOO —) 
Mo) 
O 


PREPARATE FARA LANZAR LA BOLA 
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Un momento después, cuya duración es aleatoria, aparecerán dos 
palabras mágicas (LANZA AHORA) debajo de PREPARATE PARA 
LANZAR LA BOLA. 


— 
a LANZA AHORA 


y 
DE 


Cuanto más rápidamente reacciones a este mensaje, pulsando cualquier 
clave, más bolos lograrás derribar. Como ves, mi primer lanzamiento fue 


po 
O 
2 
= 
O 


EN ESTE TRIANGULO 
HAS MARCADO O PUNTOS 


) 


ESTE ES EL TRIANGULO 1 BOLA 1 
> o 
as oooO 
OO 
PS 
1 - RESULTADO<- 


UN BOLO DERRIBADO 


No obstante, lo hice un poco mejor en el segundo: 


EN ESTE TRIANGULO 
HAS MARCADO 2 PUNTOS 


1) 


ESTE ES EL TRIANGULO 2 BOLA 1 


0000 


- >RESULTADO<-— 
S BOLOS DERRIBADOS 


¡Y en el tercero los derribé todos! 


EN ESTE TRIANGULO 
HAS MARCADO 12 PUNTOS 


a 
E 


ESTE ES EL TRIANGULO 3 


Jo 


>> STRIKE << 


Naturalmente, siguiendo las reglas de los bolos, la puntuación que tuve 
en la siguiente jugada fue doble: 


EN ESTE TRIANGULO 
HAS MARCADO 21 PUNTOS 


L) 


ESTE ES EL TRIANGULO 4 


PA Ll 
E 
- >RESULTADO<- E 
8 BOLOS DERRIBADOS Y) 
MAS 8 !! 


Pero no pude hacerlo peor con la primera bola de la quinta jugada: 


EN ESTE TRIANGULO 
HAS MARCADO 37 PUNTOS 


| 


ESTE ES EL TRIANGULO 53 BOLA 1 
(53 
0000 
o00 A 
00 
6) Pp) 
>BLANCO< ll) 


2 


5 


En esta vuelta sólo conseguí marcar 85 puntos: 


= EN ESTE TRIANGULO 
a HAS MARCADO 75 PUNTOS 


ESTE ES EL TRIANGULO 10 


>> STRIKE << 
FINAL DE JUEGO 


HAS MARCADO 85 PUNTOS 
Ok 


] 


Cuando estés preparado para batir esta marca, lo que no debería 
resultarte especialmente difícil, introduce este listado: 


190 GOSUB 830 


1 REM 46164636 26-26 6-16 6-26 6 26H MIRE 

2 REM +* + 200 NEXT B 

3 REM * JUEGO DE BOLOS PARA +* 210 PANTALLA=PANTALLA+MARC 

4 REM * PROBAR TUS REFLEJOS + 220 IF GOLPE=F-1 THEN PRINT, "MAS"MARC 
S REM + + "11 "?¿PANTALLA=PANTALLA+MARC: GOLPE=99: 
6 REM 640616626 6 36 6 6 26 260 MAMA GOSUB 830 

10 REM 230 NEXT F 

20 GOSUB 750:REM INICIALIZACION 240 PRINT "FINAL DE JUEGO” 

30 FOR F=1 TO 10 250 PRINT:PRINT "HAS MARCADO"PANTALLA 
40 FOR B=1 TO 2 "PUNTOS" 

50 IF B=1 THEN GOSUB 280: REM 260 END 


270 REM 40400606626 06 2606 DI 6 0 00H 
280 REM UBICACION DE LOS BOLOS 
290 FOR J=1 TO 10 

300 A(J)=79 


UBICACION DE LOS BOLOS 
60 GOSUB 340:REM IMPRESION BOLOS 

70 GOSUB 470:REM BOLA 

80 GOSUB 340 


MARC=0 310 NEXT J 
100 FOR J=1 TO 10 320 RETURN 
110 IF A(J)=45 THEN MARC=MARC+1 330 REM 340460614 06 36 3616 36 036 6H EME EA 
120 NEXT J 340 REM IMPRESION DE LOS BOLOS 
130 IF MARC=0 THEN PRINT, ">BLANCO< " 350 CLS:PRINT:PRINT 
140 IF GOLPE=F THEN PRINT,">> STRIKE 360 PRINT "EN ESTE TRIANGULO":*PRINT " 
<<":GOTO 160 HAS MARCADO"PANTALLA"PUNTOS" 
150 IF MARC=10 THEN PRINT TAB(2)3"'; 370 PRINT:PRINT "ESTE ES EL TRIANGULO 
AS DERRIBADO TODOS LOS BOLOS::" rs" e 
160 IF MARC>O AND MARC<10 THEN PRINT, 380 IF GOLPE=99 THEN PRINT "BOLA"B EL 
"—>RESULTADO< -" SE PRINT 


390 PRINT:PRINT 

400 PRINT TAB(8)3CHR$(A(10))5" "5CHRS$ 
(A(9))3" "3CHR$(A(8))3" "5CHR$(A(7)) 
410 PRINT TAB(9)5CHR$(A(6))3" "5CHR$( 
A(5))3" "5CHR$(A(4)) 


170 IF MARC=1 THEN PRINT TAB(15)5"UN 
BOLO DERRIBADO" 

180 IF GOLPE<>F AND MARC<>1 AND MARC< 
10 THEN PRINT TAB(14)5MARC"BOLOS DERR 
IBADOS" 


5] 
S 
OO OOOO O Oo o.mO0o 
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Ooo Oo 


O 


O 


420 


PRINT TAB(10)5CHR$(A(3))3" "5CHRSs 


(A(2)) 


430 


480 


PRINT TAB(11);5CHR$(A(1)) 
PRINT:PRINT 

RETURN 

REM 4 

REM BOLA 

PRINT TAB(4)5 "PREPARATE PARA LANZ 


AR LA BOLA": PRINT 


490 
500 
s10 
520 
530 
540 
550 
560 
570 


N N= 


580 
590 
600 


IF INKEYS$<>"" THEN 490 

FOR R=1 TO 300+RND (1)+*Z 

NEXT R 

IF INKEYS$<>"" THEN 500 

PRINT TAB(7)5"LANZA AHORA" 

N=0 

N=N+.7 

IF INKEYS$="" THEN 550 

IF B=1 AND RND(1)>.9 AND N<30 THE 
10 

IF Nx<20 AND B=1 THEN 670 

IF N<20 THEN T=10 

IF N>19 AND N<30 THEN T=5+INT(RND 


(1)+4) 


610 


IF N>29 AND N<42 THEN T=2+INT(RND 


(1)+5) 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 


IF N>41 THEN T=INT(RND(1)+*4) 
FOR K=1 TO T 

IF RND(1)>.1 THEN A(K)=45 
NEXT K 

RETURN 

REM * GOLPE * 

FOR K=1 TO 10 

A(K)=45 

NEXT K 

GOLPE=F 

B=2 

RETURN 

REM 4062636 36-36 36 66H IEEE 

REM INICIALIZACION 

CLS 

DIM A(10) 

PANTALLA=0: REM PUNTUACION 
Z=500:REM AJUSTA ESTE VALOR PARA 


DARLE MAS RENDIMIENTO A TU SISTEMA 


800 
e10 
820 
830 
840 
eso 


GOLPE=99 

RETURN 

REM se 

REM RETARDO 

FOR L=1 TO 1500:NEXT L 
RETURN 


oooO OoOoOooOo 
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Telepatía 


Este programa relativamente simple es muy útil para tener a mano 
cuando te visitan tus amigos y quieres enseñarles el poder de tu orde- 


nador. 


Al comenzar el programa, el ordenador te explica en qué consiste el 


juego: 


Ahora voy a comprobar tu capacidad 
para la matematica mental... 


al tiempo que demostrare mis poderes 
telepaticos 


Te dare una serie de instrucciones 
que quiero que sigas... 


Segun vayas realizando cada una de 
ellas, pulsa cualquier tecla y te 
dare la siguiente 


Una vez que terminan los textos preliminares comienza el “test telepá- 


tico”: 
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En primer lugar, quiero que pienses 
un numero 


) 


Ahora, multiplicalo por cinco... 


Anade seis al resultado 


Multiplicalo por cuatro 


Anadele nueve 


L) 


Multiplica el resultado por cinco 
Ahora dime la cifra con la que has 
terminado... 


JO 


e 463 
TU NUMERO ERA EL Z 
A RR AAN A A 


Sin embargo, el programa continúa. Después de una pequeña pausa 
que te permitirá relajarte después del desacostumbrado esfuerzo mental, 
comenzará una segunda prueba: 


Ahora vamos a hacer otra prueba de 
tus poderes mentales.. 


1) 


Quiero que escribas tres numeros, 
todos ellos inferiores a 10... 
2.2... .«<.«« Y mayores que cero 

No me los ensenes!' 


| 


«<<. .<.<..0<0.0.0 0... ....0. .e...b.0Á.0..2x:c..<.<-- +... . << ...b.b 


Ahora, multiplica el primer numero 
por dos 


e 
LJ) 
3 
a 
D 
m 
y 
a 
+ 


a 
E 


seguidamente, anadele siete 


250 


1 REM * 
2 REM + 
3 REM + 
4 REM + 
S REM +* 


10 REM 

20 CLS: 

30 PRIN 

pacidad 
" 


s poder 


HN MAMRNMRAA 50 GOSUB 850 ¡ 
* 60 PRINT "Te dare una serie de instru |! O 
TELEPATIA «+ cciones" ! 
* 70 PRINT "que quiero que sigas..." ' 
IHAAARAAAAAMA 80 GOSUB 850 i O 
90 FRINT "Segun vayas realizando cada 
PRINT:PRINT una de ellas, pulsa cualquier tecl 
T "Ahora voy a comprobar tu ca a y te" ! O 
para la matematica mental.. 100 PRINT "dare la siguiente” , 
á 110 GOSUB 850 ] 
40 PRINT "al tiempo que demostrare mi 120 IF INKEYS$<>"" THEN 120 ' O 
' 


Ha llegado el momento de que le 
anadas tu segundo numero 


) 


Duplica el numero que lleves hasta 
ahora 

Ahora, algo facil: sencillamente, 
sumale tres 


) 


Un poco mas dificil... multiplicalo 
por cinco... 


1) 


Y, por ultimo, algo facil otra vez... 
sumale el tercer numero 


) 


Dime el numero con el que has acabado 
2 878 


Tu primer numero era 6 


| 


El segundo numero era el 4 


y tu tercer numero era el 3 


[] 


Un poco más tarde, el programa finaliza con el siguiente mensaje: 


Gracias por haberte estrujado el 
cerebro en mi compania... 
Hasta la vista, CAMPEON... 


y 


Aquí tienes el listado que asombrará a tus amigos: 


es telepaticos" 130 PRINT "En primer lugar, quiero qu 
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o0o00.0.0OO0O OOOO OOOO OoCOoOoOo 


O 


O 


un numero” 
840 
“Ahora, 


e pienses 
140 GOSUB 
150 PRINT 
MCO»...” 
160 GOSUB 
170 PRINT 
tado" 
180 GOSUB 
190 PRINT 
200 GOSUB 
210 PRINT 
220 GOSUB 
230 PRINT 
r cinco” 
240 GOSUB 840 
250 PRINT "Ahora dime la cifra con la 
que has":PRINT TAB(10)5 "terminado... 


multiplicalo por ci 


840 
TAB(1)5"Anade seis al resul 


840 

"Multiplicalo por cuatro" 
840 

TAB(10); "Anadele nueve” 

840 

"Multiplica el resultado po 


260 PRINT "ooconcoocoocococconcosoooss 
r.«o......."¿PRINT 

270 INPUT NUMERO 

280 NUMERO= (NUMERO-165) /100 

290 GOSUB 850 


"300 PRINT TAB(10);"TU NUMERO ERA EL"N 


UMERO 

310 GOSUB 850 

320 GOSUB 860 

330 FOR J=1 TO 30 

340 PRINT TAB(J)3">" 

350 FOR T=1 TO 100:NEXT T 

360 NEXT J 

370 GOSUB 850 

380 PRINT "Ahora vamos a hacer otra p 
rueba de" 

390 PRINT "tus poderes mentales.." 
400 GOSUB 850 

410 IF INKEYS<>"" THEN 410 


420 PRINT "Quiero que escribas tres n 
umeros," 

430 PRINT "todos ellos inferiores a 1 
O...” 

440 PRINT "........ y mayores que cer 
o" 

450 PRINT TAB(8);"No me los ensenes!" 
460 GOSUB 840 

470 PRINT "Ahora, multiplica el prime 
r numero por dos" 

480 GOSUB 840 

490 PRINT TAB(12);"anmadele tres" 

500 GOSUB 840 

510 PRINT "Multiplica el resultado po 


r CcincOo...” 
520 GOSUB 840 
530 PRINT "y, 
iete" 

540 GOSUB 
550 PRINT 
ue le 

560 GOSUB 
570 PRINT 
es hasta 
580 GOSUB 
590 PRINT 
amente, 
600 GOSUB 
610 PRINT 
tiplicalo 
620 GOSUB 840 

630 PRINT "Y, por ultimo, algo facil 
otra vez...sumale el tercer numero" 
640 GOSUB 840 

650 PRINT "Dime el numero con el que 
has acabado" 

660 INPUT NO 

670 NO=NO-235 

680 GOSUB 850 

690 A=INT(NO/100) 

700 B=INT((NO-100*A)/10) 

710 C=NO-10*B-100*A 

720 PRINT:PRINT 

730 PRINT "Tu primer numero era"A 
740 GOSUB 850 

750 PRINT TAB(4)5"El segundo numero e 
ra el"B 
760 GOSUB 
770 PRINT 
era el"C 
780 GOSUB 
790 PRINT 
ado el 
800 PRINT 


seguidamente, amadele s 
840 

"Ha llegado el momento de q 
anadas tu segundo numero" 
840 

"Duplica el numero que llev 
ahora" 

840 

"Ahora, algo facil: 
sumale tres" 

840 

"Un poco mas dificil... 
por cinco...” 


sencill 


mul 


850 
TAB(8)5"y tu tercer numero 


850 

"Gracias por haberte estruj 
cerebro en mí compania..." 
"Hasta la vista, CAMPEON... 


810 PRINT ".u.ocnoccononocosanosasanss 


820 GOSUB 850 

830 END 

840 IF INKEYS$="" THEN 840 

850 PRINT "..oocnoommocossonaronnsanoas 
sonooon... "¿PRINT 

860 FOR T=1 TO 1000:NEXT T 

870 RETURN 
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Parte VIII 


Juegos de cartas 
y de tableros 


ROBANDO DEL MONTON 
CUATRO CUADRADOS 
GUERRA DE MONSTRUOS 
BICIS VELOCES 

EL TRIUNFO DEL SIETE 


Robando 
del 
montón 


En este programa, el ordenador jugará contigo a la versión electrónica 
del popular juego de cartas. El objetivo del juego es construir una serie de 
“bloques” en los cuales se reunirán cuatro cartas iguales (por ejemplo, 
cuatro ases o cuatro nueves). 

El juego comienza con cinco cartas para ti y otras tantas para el 
ordenador. Puedes ver tus cartas, pero, naturalmente, no aparecerán las 
del ordenador. Ambos jugadores se turnarán para pedirle a su oponente 
una carta que necesiten para completar un grupo. Si el jugador interroga- 
do no dispone de dicha carta, su oponente deberá ROBAR DEL MON- 
TON, es decir, que cogerá una de las cartas que aún no se han repartido. 

Seguidamente te enseñaré algunos de los intercambios que hice con el 
ordenador en una de las partidas que jugué con él: 


Tus cartas: == 
78.9 11 18 E 
MY 


Tienes un... 6 (S/N)? N 


Voy a robar Pp) 
A, 


Que carta quieres? 11 
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No tengo ninguna. Tienes que robar 


L 
WAY 


Tu carta es un 4 


Tienes O pokers 
Tengo O pokers 


a 


Tus cartas: 
4 789mui 


1) 


Tienes Un... 3 (S/N)? N 
Voy a robar 


Que carta quieres? 4 


1) 


Tengo una! 


Tienes O pokers 
Tengo O pokers 


1) 


El juego continúa y el número de cartas de cada uno se incrementa 
progresivamente. El ordenador ayuda a su oponente poniéndole sus cartas 
en orden: 


Tus cartas: 
11133344494 6 7 7 
10 10 10 11d 11 12 


a 


Tienes un... 8 (S/N)? N 


[]) 
LL) Voy a robar 
Que carta quieres”? 10 
E) 
No tengo ninguna. Tienes que robar 
lu) g gq es q 


Tu carta es un 1 
[] Tienes 1 poker 
¡A Tengo O pokers 


A su debido tiempo, comenzarás a formar “bloques” (grupos de cuatro 
cartas idénticas). 


Tus cartas: 
11o1o1oa333494so4994ss.5 
5667 i0 10 10 11 12 12 
12 12 13 

Tienes Un... 7 (S/N)? S 

Que carta quieres”? 10 

No tengo ninguna. Tienes que robar 


Tu carta es un 9 


Tienes 3 pokers 
Tengo 2 pokers 


El juego termina cuando se han formado todos los bloques o concluye 


el tiempo límite: 

Tus cartas: 

1 1 112333] 3 4 4 4 
45556 sio 10 10 10 11) 11 
12 12 12 12 

Tienes un... 11 (S/N)? S 

Que carta quieres? 5 

No tengo ninguna. Tienes que robar 


Tu carta es un 8 


Tienes 53 pokers 
Tengo 3 pokers 


Se nos ha acabado el tiempo 

Hemos llegado al final de la partida 
y hemos quedado empatados 

Mis cartas: 

2 226677778w8uw8 


ge 9 9 9 9 11 11 11 11 13 
13 13 13 


Tus cartas: 


1 1 1123 3 3 Y 4 4 «e 
45568 s1o 10 10 10 11 
1 2 12 


Cuando estés preparado para enfrentarte con la versión electrónica del 


O: 0 000 O “0 7 0 0.000. 0.0.0 0, 0-0 0-0 


juego, introduce en tu ordenador el siguiente programa: 


VOM IE MIO MH HIERE TIME IEA 
+ 


+ 
* ROBANDO DEL MONTON + 
* * 


MIES DD DE DDD dE DD DEE IÓ DIE E 


1 REM 
2 REM 
3 REM 
4 REM 
S REM 
10 REM 
20 GOSUB 1270:REM INICIALIZACION 
30 REM *** REPARTO PROVISIONAL e.* 
40 FOR J=1 TO 5 

50 C(J)=A(J) 

60 H(J)=A(J)+5 

70 NEXT J 

80 REM sx BUCLE MAYOR 1. 

90 CLS:PRINT:PRINT 


100 HZ=0 

110 PRINT "Tus cartas:" 

120 FOR J=1 TO 52 

130 IF H(J)<>0 THEN HZ=HZ+1:PRINT H(J 

5 

140 NEXT J 

150 REM +*%%* EL ORDENADOR COMPRUEBA 
SUS CARTAS 

160 CZ=0 

170 FOR J=1 TO 52 

180 IF C(J)<>0 THEN CZ=CZ+1 

190 NEXT J 

200 TURNO=0 

210 TURNO=TURNO+1 

220 IF TURNO=100 THEN PRINT TAB(8)3" 


IN PETICION":GOTO 400 

230 M=INT(RND(1)*CZ)+1: 1F C(M)=0 OR C 
(M)=ULTIMACARTA AND RND(1)>.2 THEN 21 
0 
240 
250 
260 
270 
280 
290 
300 
310 


FL=0: IF CB=0 THEN 290 
FOR T=1 TO CB 

IF C(M)=Q(T) THEN FL=1 
NEXT T 

IF FL=1 THEN 230 
ULTIMACARTA=C (M) 
PRINT:PRINT 

PRINT "Tienes un..." 
320 PRINT C(M)"(S/N)"3 
330 INPUT K$: 1F Ks<>"Ss" 
ND K$<>"N" AND Ks<>"n" 
340 IF Ks<>"s" 
350 J=0 

360 J=J+1 

370 IF H(J)=C(M) THEN H(J)=0:C(CZ+1)= 
C(M): GOTO 410 

380 IF J<HZ THEN 360 

390 PRINT:PRINT "Voy a robar" 

400 C(CZ+1)=A(X)1X=X+1 

410 PRINT:PRINT "Que carta quieres"; 
420 INPUT P:IF P<1 OR P>13 THEN 420 
430 IF P=0 THEN PRINT:PRINT "Tienes q 
ue escoger una carta":PRINT:GOTO 550 


AND K$<>"s" A 
THEN 330 
AND K$<>"s" THEN 390 
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440 FL=0 

450 FOR M=1 TO HZ 

460 IF H(M)=P THEN FL=1 

470 NEXT M 

480 IF FL=0 THEN PRINT:PRINT TAB(7)3" 

NO HAGAS TRAMPAS! ":GOTO 410 

490 PRINT 

500 CC=0 

510 CC=CC+1 

520 IF C(CC)=P THEN PRINT "Tengo una! 

"2 H(HZ+1)=C (CC) :C(CC)=0:GOTO 570 

530 IF CC<TT THEN 510 

540 PRINT "No tengo ninguna. 

ue robar" 

550 PRINT:PRINT "Tu carta es un"A(X) 

560 H(HZ+1)=A(X) 2 X=X+1 

570 REM exe ELIMINACION DE CEROS +. 

580 REM sx PRIMERA COPIA DE LAS 
MATRICES 

TT=HZ3 1F CZ>HZ THEN TT=CZ 

TT=TT+4 

FOR M=1 TO TT 

E(M)=C(M) :C(M)=0 

F (M)=H(M) :H(M)=0 

NEXT M 

REM sexe DEPURACION DEL ORDENADOR 

M=0:N=1 

M=M+1 

IF E(M)=0 THEN 700 

C(N)=E (M) : N=N+1 

IF M<TT THEN 670 

REM sx DEPURACION DEL JUGADOR 

M=0:N=1 

M=M+1 

IF F(M)=0 THEN 760 

H(N)=F (M) ¿ N=N+1 

IF M<TT THEN 730 

REM *%x* NUEVA COPIA DE MATRICES 

FOR M=1 TO TT 

E (M)=C (M) :C(M)=0 

F (M) =H (M) ¿H(M) =0 

NEXT M 

REM sex ORDENACION 4364 

REM sexe PRIMERO, EL ORDENADOR 344 

M=0 

FOR J=1 TO 13 

FOR L=1 TO 26 

IF E(L)=J THEN M=M+1:C(M)=J2E(L)= 


Tienes q 


590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
eso 
860 
870 
Lo] 

880 
890 
900 
910 
920 
930 
940 


NEXT L 
NEXT J 

REM sx AHORA, 
M=0 

FOR J=1 TO 13 
FOR L=1 TO 26 
IF F(L)=J THEN M=M+1:H(M)=J:F(L)= 


EL JUGADOR 40% 


o. o 


ooo Oo O 


o. o 


O 


O 


o 


950 NEXT L 

960 NEXT J 

970 REM **%* CONTROL DE LAS JUGADAS 
980 HB=0: CB=0 

990 FOR Z=1 TO TT 


1000 


IF C(Z)=C(2+1) AND C(Z+1)=C(Z+2) 


AND C(Z+2)=C(Z+3) AND C(Z)<>0 THEN C 
B=CB+1:Q (CB)=C(Z) 


1010 IF H(Z)=H(Z+1) AND H(Z+1)=H(Z7+2) 
AND H(2+2)=H(Z+3) AND H(Z)<>0 THEN H 
B=HB+1 

1020 NEXT Z 

1030 PRINT:PRINT "“Tienes"HB"poker"; 
1040 IF HB<>1 THEN PRINT "s" ELSE PRI 
NT 

1050 PRINT "Tengo"CB"poker"; 

1060 IF CB<>1 THEN PRINT "s” ELSE PRI 
NT 

1070 FOR Y=1 TO 4600:NEXT Y 

1080 IF X<53 THEN 80 

1090 REM *%% FIN DEL JUEGO +... 

1100 PRINT:PRINT "Se mos ha acabado e 
1 tiempo" 

1110 PRINT:PRINT "Hemos llegado al +i 


nal de la partida" 


1120 
1130 
1140 


FOR Y=1 TO 1000:NEXT Y 
PRINT 
IF HB>CB THEN PRINT "y tu eres e 


1 ganador!" 


1150 


IF CB>HB THEN PRINT "y he ganado 


yo!" 
1160 
dado 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
),0(1 
1290 
1300 
1310 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 


IF CB=HB THEN PRINT "y hemos que 
empatados" 

PRINT:PRINT "Mis cartas: ":PRINT 
FOR Y=1 TO 52 

IF C(Y)<>0 THEN PRINT C(Y)5 
NEXT Y:PRINT:PRINT 

PRINT "Tus cartas: ":PRINT 

FOR Y=1 TO 52 

IF H(Y)<>0 THEN PRINT H(Y)5 
NEXT Y:PRINT:PRINT 

END 

REM 4046064626 66 6d 66 0H 

REM INICIALIZACION 


DIM C(56),H(56),E (56) ,F (56), ,A (52 - 


3) 

HB=0:CB=0: REM CUENTA DE <POKERS> 

X=11:REM PROXIMA CARTA A DAR 

TT=8:REM No. DE CARTAS A 
COMPROBAR 

ULTIMA CARTA=0 

REM SE BARAJAN LAS CARTAS 

FOR J=0 TO 51 

K=INT (J/4)+1 

A(J+1)=K 

NEXT J 

FOR J=52 TO 2 STEP-1 

Z=INT(RND(1)+*J)+1 

H=A (7) :A(Z)=A (J) 

A(J)=H:NEXT J 

RETURN 


Oo0o0O0.C0O0OOOoOoOoO0oOosmo.m0 
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Cuatro 
cuadrados 


Este es un juego de tablero muy original, en el que debes intentar for- 
mar tantos grupos de cuatro como puedas. Esto será más comprensible cuan- 
do veas el tablero que aparecerá en la pantalla al principio del juego. 


Mi puntuacion: O 
Tu puntuacion: O 


JUL 


QGnNMONOWD 


INTRODUCE TU MOVIMIENTO (LETRA No.) 
>>> ? D2 


1) 


26 


u 


En la pantalla anterior el jugador se movió en el punto C3 y e 
ordenador lo hizo en el ES. En la próxima el jugador se moverá en le 


"3 
jo] 
2 
e 
Os 
S 
U 
O 


Mi puntuacion: O 
Tu puntuacion: O 


|] 


1234567 


7 
A . . . . . . . 
l —) B . . . . > . . 
c . . H . . . . 
D . H . . . c . 
E E . . [. . c . - 
Nu A E . . . . . . . 


. Muy pronto el jugador podrá formar un grupo de cuatro cuadrados 
de manera que el ordenador moverá en Dl para frustrar el intento de st 
contrincante: 


Mi puntuacion: O 
Tu puntuacion: O 


1) 


1234567 


L) 


a 

U 
GraMoOoO»D 
a 


. .. (Ju... 
.. . (Jo . .0. 


INTRODUCE TU MOVIMIENTO (LETRA No.) 
>>> ? D3 


|] 


El juego sigue y las posibilidades de éxito de ambas partes se hace 


Mi puntuacion: 1 
Tu puntuacion: 3 


1] 
S 
Es 


123450607 AS 

O y 0 a TI EN 
BCHHH... A 
C I->—>HHC... 
D CHHHCC. E] 
E ..CHCHC Ml 
Posse BB Y 
6. ECouéo JE 


) 


INTRODUCE TU MOVIMIENTO (LETRA No.) 
>>> 2 A%4 


Nota que un símbolo en particular puede formar parte de más de un 
grupo de cuatro. Por ejemplo, aquí puedes ver que la H del centro es 
parte de dos grupos de cuatro: 


«HH... PAN 
ci: 7 
.. «HH. ¡A 


El ordenador visualiza las puntuaciones a medida que se va desarro- 
llando el juego: 


Mi puntuacion: 2 
Tu puntuacion: S 


) 


1234567 -— 
A CHHHHH. [) 
B CHHHHC. 

CHHHCH.. 
D CHHHCC. == 
E C.CHCHC A 
A Y a 3 39 A) 
6 C.-CCCCH 


L) 


Mi movimiento... 


Hasta que finalmente un jugador (en este caso, el ordenador) gana la 
partida. 
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Ú 
l 
1 
4 
1 
] 
' 
' 
' 
] 
] 
' 
1 
1 
1 
1 
1 
1 
1 
' 
1 
i 
1 
' 
1 
1 
1 
1 
Ú 
' 
1 
] 
' 
' 
1 
' 
1 
1 
' 
1 
1 
1 
1 
1 
1 
1 
' 
1 
1 
1 
t 
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1R 
2R 
3R 
4R 
SR 


al 
150 
150 
a" 
170 
yo! 
180 
emo 


1) 


[) a 
ol A cH 
B CH 
C HH 
O te 
¡A E CC 
FOCC 
G CH 


_ 
L 


Edd 


Mi puntuacion: 
Tu puntuacion: 


OIOTITIT YU 


ur y 


OOTIOIT > 
OONOOTITIT YU 
OOTOTIOTI 0 
TOOTIOIT 3 


Tu has ganado! 


Hemos llegado al final de la partida 


Aquí tienes el listado que te permitirá jugar a CUATRO CUADRA- 


DOS 


EM 6366 40H II HIS MIE IE HEHE 
EM + * 
EM * CUATRO CUADRADOS + 
EM + * 
EM 0 MM 
REM 

GOSUB 
GOSUB 
GOSUB 
GOSUB 


860: REM 
740: REM 
640: REM 
510: REM 


INICIALIZACION 
IMPRESION DE TABLERO 
MOVIM. DEL JUGADOR 
VALORACION DEL 
TABLERO 

IMPRESION DEL 
TABLERO 

IF MARC=49 THEN 130 
GOSUB 210:REM MOVIM. DEL ORDENADOR 
GOSUB 510:REM VALORACION DEL 

TABLERO 
GOSUB 740:REM IMPRESION DEL 
TABLERO 

IF MARC<>49 THEN 40 

REM 2663066 II 0 

REM FIN DEL JUEGO 

PRINT:PRINT "Hemos llegado al fin 
de la partida" 
PRINT:PRINT 

IF HS>CS THEN PRINT 


GOSUB 740: REM 


"Tu has ganad 


IF CS>HS THEN PRINT 


IF HS=CS THEN PRINT 
s quedado empatados!" 


“Y he ganado 


“Parece que h 


190 
200 
210 
220 
230 


END 

REM Ide dt da 6 6 6 II AHHH 

REM MOVIM. DEL CRDENADOR 

PRINT "Mi movimiento..." 

REM xx MUEVE DONDE TIENE MAYORES 

POSIBILIDADES DE GANAR 

240 
250 

260 
270 

280 
)=3 
470 

290 IF RND(1)>.9 AND J=H THEN 320 

300 IF A(X)=J AND A(X+10)=J AND A(X+1 
1)=J AND A(X+1)=N THEN MOVI=X+1:GOTO 

470 

310 IF RND(1)>.9 AND J=H THEN 330 

320 IF A(X)=J AND A(X+1)=J AND A(X+11 
)=J AND A(X+10)=N THEN MOVI=X+10:GOTO 
470 


MOVI=0 

J=C 

x=0 

X=X+1 

IF A(X)=J AND A(X+1)=J AND A(X+10 
AND A(X+11)=N THEN MOVI=X+11:GOTO 


330 IF A(X)=N AND A(X+1)=J AND A(X+11 
)=J AND A(X+10)=J THEN MOVI=X:GOTO 47 
o 

340 IF X<67 THEN 270 

350 IF J=C THEN J=H:GOTO 260 

360 REM *%x%* MOVIMIENTO REFLEJO ex 
370 IF A(68-K)=N THEN MOVI=68-K: GOTO 
470 

380 REM +*se* MOVIMIENTO ALEATORIO +. 
390 X=0 


O 


O 


ooo. Oo 


OO OOOoOoO0ooomo.so 


o. Oo 


O 


O 


400 
410 


X=X+1 

Z=INT(RND(1)+67)+1 

420 IF A(Z)=N THEN MOVI=Z:GOTO 470 
430 IF X<500 THEN 400 

440 PRINT:PRINT 

450 PRINT "Me doy por vencido, 
Ni" 

460 END 

470 REM +x** REALIZACION DEL 
MOVIMIENTO 


CAMPEOD 


480 A(MOVI)=C 

490 RETURN 

500 REM 36462 06d dd dd ME dd E HE DEE E II 

510 REM VALORACION DEL TABLERO 

520 MARC=0 

530 HS=0: REM PUNTUACION DEL JUGADOR 
540 CS=0:REM PUNTUACION DEL ORDENADOR 
550 FOR Z=1 TO 56 

560 IF A(Z)=H AND A(Z+1)=H AND A(Z+10 
)=H AND A(Z+11)=H THEN HS=HS+1 

570 IF A(Z)=C AND A(Z+1)=C AND A(Z+10 
)=C AND A(Z+11)=C THEN CS=CS+1 

580 NEXT Z 

590 FOR Z=1 TO 67 

600 IF A(Z)=C OR A(Z)=H THEN MARC=MAR 
C+1 

610 NEXT Z 

620 RETURN 
o 
640 REM ACEPTACION DEL MOVIMIENTO DEL 


JUGADOR 
650 REM 
660 PRINT "INTRODUCE TU MOVIMIENTO (L 
ETRA No.)" 
670 INPUT ">>> "3BS 


680 IF ASC(B$)=ASC("0") THEN 140 

690 IF LEN(B$)<>2 OR ASC(B$)<65 OR AS 
C(B$)>72 THEN 560 

700 K=10+* (ASC(B$)-54) +VAL (RIGHTS (B$, 1 


))-110 

710 A(K)=H 

720 RETURN 

730 REM 364661606 36-36 26-16 06M IM MIA 

740 REM IMPRESION DE PANTALLA 

750 CLS:PRINT:PRINT 

760 PRINT "Mi puntuacion: "CS:PRINT "T 

u puntuacion: "HS:PRINT:PRINT 

770 PRINT TAB(3)53"1 23456 7" 

780 FOR J=0 TO 68 

790 IF 10*INT(J/10)=J THEN PRINT:PRIN 

T CHR$(65+INT(J/10))5" "5: 1F J>1 THEN 

PRINT " "; 

800 IF A(J)=E THEN 820 

810 PRINT CHR$S(A(J))33" "5 

820 NEXT J 

830 PRINT:PRINT:PRINT 

840 RETURN 

850 REM 2626006 

860 REM INICIALIZACION 

870 CLS:PRINT:PRINT 

880 PRINT "Por favor, 

890 DIM A(99) 

900 E=-9:REM TABLERO APAGADO 

910 C=ASC("C"):REM FICHA DEL 
ORDENADOR 

920 H=ASC("H"):REM FICHA DEL 

JUGADOR 

930 N=ASC("."):REM ESPACIOS VACIOS 
DEL TABLERO 

940 FOR J=1 TO 99 

950 A(J)=E 

Z=J-10*INT(J/10) 

IF Z=0 OR Z=8 OR Z=9 THEN 1000 

IF J>67 THEN 1000 

990 A(J)=N 

1000 NEXT J 

1010 RETURN 


atento..." 


oO OOO OOO O0OoOoOoAOooOoO0O 
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El siguiente es un juego de cartas. El programa comienza cuando el 
ordenador baraja las 32 cartas disponibles: 


wn. HORROR! ex P) 
Estoy barajando las cartas lu) 


A continuación hay un ejemplo del juego. Como puedes ver, cada carta 
representa un monstruo que tienen las siguientes características: fuerza, 
factor miedo, poder letal, y un índice de horror: 


Tu carta: uu 
> EL JOROBADO < A, 
> 1- Fuerza: 75 
> 2- Factor miedo: 65 PEN 
> 3- Poder letal: 72 
_—Y) 


> 4- Indice de horror: 48 


Una vez que se te haya enseñado la carta tienes que seleccionar el 
factor que creas oportuno para vencer el factor de la carta de tu oponente 
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la cual, por supuesto, no se te permitirá ver). Cuando hayas hecho tu 
elección se te enseñará la carta de tu oponente. 


a 


Tu carta: 


) 


> EL JOROBADO < 


> 1- Fuerza: 75 

> 2- Factor miedo: 45 

> 3- Poder letal: 72 

> 4- Indice de horror: 68 


[) 


Escoge una (de 1 a 4) 
>>> 92 


Esta es mi carta... 


0 


>THOR< 


) 


> 1- Fuerza: 100 

> 2- Factor miedo: 90 

> 3- Poder letal: 97 

> 4- Indice de horror: 68 


1 


Creo que he ganado 
Ahora tengo 17 cartas 


Aquella carta que tenga el número más alto para el factor elegido gana 
ambas cartas y le cede el turno al ganador. 
Después de cada victoria el ganador hace la siguiente selección: 


Esta es mi carta... 


>THOR< 


) 


> 1- Fuerza: 100 

> 2- Factor miedo: 90 

> 3- Poder letal: 97 

> 4- Indice de horror: 48 


1) 


** Escojo la numero 1 *x 


Tu carta: 


> SACERDOTE DEL DIABLO < 


D 
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> 1- Fuerza: 92 PSN 
> 2- Factor miedo: 82 DN 


> 3- Poder letal: 89 Y) 
> 4- Indice de horror: 92 
Creo que he ganado E 
Ahora tengo 25 cartas oil 


Y asi continúa el juego teniendo las cartas como si fueran reales en 
lugar de ficciones electrónicas de la imaginación de tu ordenador: 


Esta es mi carta... P] 
hu) 


>ESQUELETO FANTASMAX 


> 1i- Fuerza: 79 


> 2- Factor miedo: 49 E 
> 3- Poder letal: 76 lu) 

> 4- Indice de horror: 78 
** Escojo la numero 1 *% Ea 
A A a a e y) 


Tu carta: 


> EXTERMINADOR < 


) 


> 1- Fuerza: 74 
> 2- Factor miedo: 64 


> 3- Poder letal: 69 | 
> 4- Indice de horror: 74 Ea 
¡A 


Creo que he ganado 
Ahora tengo 32 cartas 


L 


Ha terminado la partida. He ganado!!! 


Si tienes coraje para enfrentarte a cosas tales como los asesinos 
“HOMBRE LAGARTO” y “TERROR DE LAS PROFUNDIDADES”, 
probablemente también tendrás valor suficiente para introducir y ejecutar 
el siguiente listado. 


21 


E A Qi 00.0: 0 2-0 0 200-0070. 00 0 “0 


ooo O0osO0 


1 REM 3036-3463-36 26-26 4636-13-33 TELE IE SEITE IEIEHE 


2 REM + + 
3 REM * GUERRA DE MONSTRUOS + 
4 REM + + 
S REM 44640263036 26d 6H M6 HI A MA EH 
10 REM 
20 REM 


30 DIM P(32),C(32) 

40 CLS:PRINT:PRINT:PRINT 

50 PRINT TAB(11)3 "se HORROR! 0." 

60 PRINT TAB(6)3 "Estoy barajando las 
cartas" 

70 N=0: A=0 

80 RN=INT(RND(1)*32)+1 

90 FOR Z=1 TO N 

100 IF RN<>P(1) THEN 120 

110 FL=1:Z=N 

120 NEXT Z 

130 IF FL=1 THEN FL=0:GOTO 80 

140 P(N+1)=RN 

150 N=N+1 

160 IF N=32 THEN 180 

170 GOTO 80 

180 FOR Z=17 TO N 

190 A=A+1 

200 C(A)=P (7) 

210 NEXT Z 

220 PN=16:CN=16 

230 REM 304416 2626 2626 646 6 16 6 HH 

240 CLS:PRINT:PRINT 

250 IF INKEY$<>"" THEN 250 

260 PRINT:PRINT:PRINT 

270 PRINT TAB(9);3"Pulsa el espaciador 
280 PRINT TAB(S);"para saber cual es 
tu carta" 

290 IF INKEYS$="" THEN 290 

300 CLS:PRINT:PRINT 

310 READ D,DS$,AF,BF,CF,DF 

320 IF D<>P(1) THEN 310 

330 RESTORE 

340 PRINT "Tu carta:" 

350 PRINT 

360 PRINT TAB(5)3"> "Ds" <" 

370 PRINT:PRINT TAB(2)3"> 1- Fuerza: " 
AF 

380 PRINT TAB(2)3"> 2- Factor miedo:" 
BF 

390 PRINT TAB(2)3"> 3- Poder letal: "C 
F 

400 PRINT TAB(2)3"> 4- Indice de horr 
or: "DF 

410 IF FL=1 THEN 570 

420 PRINT:*PRINT "Escoge una (de 1 a 4 
y" 

430 PRINT ">>> "5 

440 INPUT Z:IF Z <1 OR Z>4 THEN 440 
450 READ D,DS$,FA,FB,FC,FD 

460 IF D<>C(1) THEN 450 

470 RESTORE 

480 PRINT "—-=-==-==-===============-=-- 


490 PRINT 
500 PRINT 
S10 PRINT TAB(S)3">"DS$"<" 

520 PRINT:PRINT TAB(2)3"> 1- Fuerza:" 
FA 

S30 PRINT TAB(2)3"> 2- Factor miedo:" 
FB 


"Esta es mi carta..." 
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540 PRINT TAB(2)5"> 3- Poder letal: "F 

E 

550 PRINT TAB(2)3"> 4- Indice de horr 

or: "FD 

560 IF FL=1 THEN 640 

570 ON Z GOTO 580,590,600,610 

580 A=AF-FA:GOTO 620 

590 A=BF-FB:GOTO 620 

600 A=CF-FC:GOTO 620 

610 A=DF-FD 

620 IF A<O THEN GOSUB 730:CLS:GOTO 45 

o 

630 GOSUB 960:GOTO 240 

640 IF FA>FB AND FA>FC AND FA>FD THEN 
Z=1:GOTO 680 

650 IF FB>FC AND FB>FD THEN Z=2:GOTO 

680 

660 

670 7=4 

680 PRINT:PRINT TAB(S)3"** Escojo la 

numero" Z "e" 

6 PRI 

700 

710 

720 

730 

740 


IF FC>FD THEN Z=3:GOTO 680 


FOR W=1 TO 2000: NEXT W 

GOTO 310 

A A 

PRINT:PRINT "Creo que he ganado" 

PRINT "Ahora tengo"CN+1"cartas" 

750 FOR W=1 TO 1500:NEXT W 

760 IF CN+1=32 THEN PRINT:PRINT:PRINT 
"Ha terminado la partida. He ganado! 
"¿END 

770 REM 4444636 36 4 34 26 3016 26d 30 46 463610 

780 C(CN+1)=C(1) 

790 C(CN+2)=P (1) 

800 CN=CN+2 

810 A=0 

820 FOR Y=2 TO CN 

830 A=A+1 

840 C(A)=C (Y) 

850 NEXT Y 

860 CN=A 

870 A=0 

880 FOR Z=2 TO PN 

890 A=A+1 . 

900 P(A)=P (7) 

910 NEXT Z 

920 PN=A 

930 FL=1 

940 RETURN 

950 REM 330303626 166-2626 DI III III 

960 PRINT:PRINT:PRINT "Has ganado!!!" 

¿PRINT "Tienes"PN+1"cartas" 

970 FOR W=1 TO 1500:NEXT W 

980 IF PN+1=32 THEN PRINT "La partida 
ha terminado y tu eres el ganador es 

ta vez!'':END 

990 REM 33630362626 dd dE dE DI E M6 

1000 P(PN+1)=P (1) 

1010 P(PN+2)=C (1) 

1020 PN=PN+2 

1030 A=0 

1040 FOR Z=2 TO PN 

1050 A=A+1 

1060 P(A)=P (Z) 

1070 NEXT Z 

1080 PN=A 

1090 A=0 

1100 FOR Z=2 TO CN 


O 


O 


OO OOOO Oo O0ooOoomOoO O 


OOoDOoOooO0o 


00 0 


1110 A=A+1 ,73,70 


1330 DATA 


1 “ 
¡ i 

O ! 1120 C(A)=C(Z) 1340 DATA 17,"TERROR DE LAS PROFUNDID | O 
y 1130 NEXT Z ADES",77,67,72,72 ! 
y 1140 CN=A 1350 DATA 18,"EL LOCO DE LA LAGUNA NE 1 

O 1 1150 FL=0 GRA",76,66,73,79 ro 
vs 1160 RETURN 1360 DATA 19,"EL BRUJO",75,65,72,83 ] 
- 1170 REM 364463620 36 20-26-36 26-36-3620 30-304034304 1370 DATA 20,"EL JOROBADO",75,65,72,6 

O | 1180 DATA 1,"THOR",100,90,97,68 8 LO 
' 1190 DATA 2,"PARCA",99,89,95,100 1380 DATA 21,"EXTERMINADOR",74,64,69, 

l 1200 DATA 3,"SACERDOTE DE SATAN",94,8 74 ! 
Oi 491,95 1390 DATA 22,"DOCTOR PECADO",73,65,72 ¡ O 
í. 1210 DATA 4,"SACERDOTE DEL DIABLO",92 193 ' 
| ,82,89,92 1400 DATA 23, "GARGOLA",72,62,69,85 ; 

O n 1220 DATA 5,"COLOSO",90,80,87,71 1410 DATA 24,"ZARPA VENENOSA",72,62,6 i O 
s 1230 DATA 6,"LA BESTIA",87,77,82,98 9,76 ' 

¡ 1240 DATA 7,"LA MOMIA",86,76,81,80 1420 DATA 25, "CRIATURA FANGOSA",71,61 

O i 1250 DATA 8, "FRANKENSTEIN", 85,75,82,8 ,68,86 i O 
n Ss 1430 DATA 26, "DRACULA",71,61,66,77 ] 
1260 DATA 9,"EL CICLOPE",84,74,79,74 1440 DATA 27, "VAMPIRO",70,60,65,87 

Oli 1270 DATA 10,"EL HOMBRE LAGARTO",83,7 1450 DATA 28,"RATA ASESINA",70,60,67, 1 O 
' 3,80,81 74 ' 
| 1280 DATA 11,"ZOLTAN",82,72,77,84 1460 DATA 29, "SACERDOTISA DEL DEMONIO 

O 1290 DATA 12,"EL DEMONIO",81,71,78,80 ",69,54,66, 82 O 
| pa mesi 13, "GUERRERO MARCIANO",80, 7 1470 DATA 30, "HOMBRE LOBO",469,59,66,6 
| 0,75,7 9 ; 

O 1310 DATA 14,"VENTOSA LETAL",79,69,74 1480 DATA 31,"CRIATURA ALIENIGENA",68 |! O 
98 , , ,58,65,97 
Il. 1320 DATA 15, "ESQUELETO FANTASMA",79, 1490 DATA 32,"CALAVERA VIVIENTE",69,5 

O ¡ 69,765,798 8,63,89 n O 
' | 
! £ 


16, "ASESINO A SUELDO", 78,68 


273 


Bicis 
veloces 


Este es uno de los más originales juegos de tablero, cuyo objetivo es 
llegar al borde opuesto desde un borde de comienzo. Está representado 
con símbolos “O” a la izquierda del tablero y debes llevarlos al otro lado. El 
ordenador controla las “X” inferiores que deberá orientar hacia el norte. Así 
es como aparece el tablero al comenzar el juego: 


Mi puntuacion: O 


Tu puntuacion: O [| 
uo) 

1 

20. . . . 

30. . . . [=P 

40D. . . . CA 

Sam A, 

6 X X X 


123456 P) 
Ly 


Atento a mi jugada... 


Cada vez que te toque podrás mover un cuadrado en una dirección. 
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En este juego no hay capturas y la puntuación que aparece en la parte 
superior de la pantalla sólo indica el número de símbolos “O” o “X” que se 
han hecho llegar a sus respectivos bordes del tablero. 

El ordenador se mueve primero y luego deberás introducir tu movi- 
miento con un número que representará tu posición actual y la posición a 
la que deseas trasladarte. 


Mi puntuacion: O 
Tu puntuacion: O 


0D 


<<. .... 
. ><... 
xs. 
x. 


pa 
N 
Y 
Eh 
ul 
o 


k 


INTRODUCE TU JUGADA 
(Lateral, margen inferior) 
>>> ? 21 


DESDE 21 HASTA? 22 


Los movimientos incorrectos son, como puedes ver, firmemente recha- 
zados: 


PAS Mi puntuacion: O 
e Tu puntuacion: O 
1 
2 . 0 . . . 
7) DO 
gal A 
50. XX. 
6 X . . X 
"O 
[) 123456 
= INTRODUCE TU JUGADA 
UN (Lateral, margen inferior) 
>>> ? 22 


DESDE 22 HASTA? 24 
>> No puedes mover asi! 


L 
LJ) 


DESDE 22 HASTA? 23 


Aquí tienes algunas secuencias del juego en acción en la que el ordena- 
dor toma una pequeña victoria. 


Mi puntuacion: O 
Tu puntuacion: O 


o0o0o0Aa2dN- 
x<xo*- 
.-OxXO* 

. ... 9) 
. ..>r0 
[] 
LJ) 


1) 


INTRODUCE TU JUGADA 
(Lateral, margen inferior) 


>>> 253 o) 
DESDE 53 HASTA? 54 LL) 
Mi puntuacion: 2 [] 
Tu puntuacion: 2 lu) 


couAadN > 
. <O. + 


. Q1. 2. . 
. . .. > 


, 
yw 
o 

) 


INTRODUCE TU JUGADA 
(Lateral, margen inferior) 
>>> ? 42 


DESDE 42 HASTA? 43 


E 
LL) 


Mi puntuacion: 4 


Ea Tu puntuacion: 3 
EA 
AN 


La 

L 

oo0AadnN 
o: 


TN 123456 
ue 


He ganado! 


Si no puedes soportar que el ordenador te esté ganando, introduce un 
cero cuando sea tu turno para volver a comenzar el juego. 


1 REM 2661626263646 6 HI III 320 IF J=45 THEN J=S50:PRINT:PRINT TAB O 
O 1 2 REM «+ * (65% "; 
3 REM * BICIS VELOCES + 330 NEXT J 
4 REM + + 340 PRINT:PRINT O 
O S REM 1036404 16 16 16 36 2636-16-26 26 26 36 646 350 PRINT TAB(8)53"1 23 4 5 6" 
10 REM 360 RETURN 
20 GOSUB 800:REM INICIALIZACION 370 REM 364362636 266 96 06 6166 6 6 HE MMM 
O 30 GOSUB 210:REM IMPRESION DE TABLERO 380 REM MOVIMIENTO DEL ORDENADOR O 
40 IF CS=4 OR HS=4 THEN 140 390 PRINT:PRINT "Atento a mi jugada.. 
50 GOSUB 380:REM MOV. DEL ORDENADOR . 
O 60 GOSUB 210:REM IMPRESION DE TABLERO 400 Y=0 O 
70 IF CS=4 OR HS=4 THEN 140 410 Y=Y+1 


80 GOSUB 600:REM MOV. DEL JUGADOR 
90 FOR J=2 TO 5:A(J)=46:NEXT J 
100 FOR J=46 TO 16 STEP-10 

110 A(J)=46:NEXT J 

120 GOTO 30 

130 REM 3936663636 36 de 36 de e 

140 REM FIN DEL JUEGO 


420 Z=INT(RND(1)+44)+12 

430 IF Y<500 AND A(Z)<>88 THEN 410 
440 IF A(Z-10)<>46 THEN 410 

450 IF Y>499 THEN GOSUB 210:PRINT: PRI 
NT "Me rindo, CAMPEON! "* END 

460 IF A(Z-10)=46 THEN W=Z-10:GOTO 56 
o 


PRINT 470 U=O 
160 IF CS>HS THEN PRINT "He ganado!" 480 J=INT(RND(1)+2)+1 
170 IF CS<HS THEN PRINT "Has ganado!" 490 U=U+1 


180 PRINT:PRINT:PRINT 

190 END 

200 REM 36461646 36 26 2616 6 HE E HH E IE 

210 REM IMPRESION DEL TABLERO 

220 CLS:PRINT:PRINT 

230 PRINT TAB(S5)53"Mi puntuacion: "CS 
240 PRINT TAB(S)5"Tu puntuacion: "HS 
250 PRINT 

260 PRINT TAB(6)5"1 ":PRINT TAB(6)3"2 


270 FOR J=11 TO 55 
260 PRINT CHR$(A(J))3" "3 
290 1F J=15 THEN J=20:PRINT:PRINT TAB 


300 IF J=1 THEN M=-11 

510 IF J=2 THEN M=-9 

520 W=Z+M 

530 IF A(W)=46 AND Wx>51 AND W<>41 AN 
D W<>31 AND W<>21 THEN 560 
540 IF Ux4 THEN 480 

550 GOTO 410 

560 A(Z)=46:A (W) =88 

570 IF 2Z<16 THEN CS=CS+1 

580 RETURN 

A 
600 REM MOVIMIENTO DEL JUGADOR 
610 PRINT:PRINT 


OoOOoOouOoOoOoOoOososowoso.o. 


- 
an 
o 


oO OOOO O OOO O 


(6033 "; 620 REM INTRODUCIR *0” PARA ABANDONAR 
300 IF J=25 THEN J=30:PRINT:PRINT TAB 630 PRINT "INTRODUCE TU JUGADA" 
(6034 "; 640 PRINT "(Lateral, margen inferior) 
310 IF J=35 THEN J=40:PRINT:PRINT TAB ” 

(6035 "; 650 INPUT ">>> "3X 
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O 


O 


o. oO 


1 
' 
i 
t 
4 
" 
1 
1 
' 
' 
I 
' 
1 
' 
1 
' 
1 
1 
1 
' 
' 
' 
I 
' 
1 
1 
i 
1 
' 
1 
' 
' 
' 
[ 


660 IF X=0 THEN PRINT ">> Gracias por 
el juego, has quedado totalmente 
derrotado!":END 

670 X=X-10 

680 IF X<6 OR X>45 THEN PRINT ">> Esa 
jugada no vale'":GOTO 630 

690 IF A(X)<>79 THEN PRINT ">> No tie 
nes ninguna ficha ahi":GOTO 630 

700 PRINT:PRINT "DESDE"X+105 
710 INPUT "HASTA"; Y 

720 Y=Y-10 

730 IF Y<6 OR Y>56 THEN PRINT 
jugada no vale!":GOTO 630 
740 IF A(Y)<>46 THEN PRINT ">> No pue 
des mover ahi":GOTO 710 

750 IF ABS(X-Y)>11 OR ABS(X-Y)>1 AND 

ABS(X-Y)<9 THEN PRINT ">> No puedes m 
over asi'":GOTO 700 

760 A(X)=46:A(Y)=79 


">> Esa 


IF Y=16 OR Y=26 OR Y=36 OR Y=46 T 
HS=HS+1 

RETURN 

E a 

REM INICIALIZACION 

DIM A(56) 

FOR J=1 TO 56 

A(J)=46 

NEXT J 

FOR J=1 TO 9 

READ X:READ Y 

A(x)=Y 

NEXT J 

HS=0: REM PUNTUACION DEL JUGADOR 
CS=0: REM PUNTUACION DEL ORDENADOR 
RETURN 

DATA 11,79,21,79,31,79,41,79 

DATA 52,88,53, 88, 54, 88,55,88,51,3 


ooo Oo osOo 
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El triunto 
del siete 


El ordenador responde rápidamente a tus movimientos en este juego, 
que es un pariente lejano del juego de las DAMAS. El tablero es de 7 x 7 
(en vez de 8 x 8 como en el de las DAMAS), lo cual le da su nombre. 

Como en las DAMAS, las fichas se mueven diagonalmente un cuadra- 
do y comen a otras fichas saltando sobre su oponente hacia un cuadrado 
vacio de la misma manera. La ficha comida desaparece del tablero. Sin 
embargo, existe una gran diferencia entre el juego de las DAMAS y el del 
TRIUNFO DEL SIETE, además del tamaño del tablero. En este juego, 
las fichas se pueden mover hacia atrás y hacia adelante, como si tuvieras 
un tablero lleno de “reyes” en el juego de las DAMAS. Debido a esta 
peculiaridad en el momento de las piezas, aquí no hay forma ni necesi- 
dad de “coronarlas”. 

El juego es muy fácil de seguir, como podrás comprobar en los próxi- 
mos ejemplos. Aquí te enseñamos cómo comienza el juego, donde tú estás 
representado por símbolos “O” que se mueven hacia arriba desde la parte 
inferior del tablero y el ordenador controla las “X” que se mueven en 
dirección contraria. 


Por favor, espera | 
y preparate para una derrota lu) 
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Movimiento 1 


L 


1234567 
7 *.X.X.X.* 7 
6 *..X.X.X* 6 
S k.X.....* 5 
A honor. * 4 
3 3 
2 2 
1 1 


1) 


Circa 
*0.0.0.0% 
*.0.0.0.+*+ 


1234567 


nO 


He movido de la 61 a la 532 


Después de hacer su movimiento y comunicártelo, el ordenador te cede 
el turno: 


Desde que casilla 
quieres mover”? 23 
desde la 23 a la? 34 


L) 


Movimiento 1 


O 


1234567 


Ú 


*D. [. .0.0% 
*, D.0.0.+* 


1234567 


1 


Tú deberás indicarle tu movimiento introduciendo el número de la 
ficha que deseas mover (este número será la coordenada inferior seguida 
de la longitudinal) y luego pulsar RETURN para introducir las coordena- 
das del cuadrado al cual deseas mover tu ficha. 
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En pocos segundos, el ordenador te responderá: 


Movimiento 2 


E, 


1234567 
7 AX. X.X.* 7 
6 k....X.XX* 6 
IS *.X.X...* 5 
4 occ 2 2 4 
3 3 
2 2 
1 1 


1) 


...0...* 
*D...0.0% 
*.0.0.0,%€ 


1234567 


He movido de la 63 a la 54 


El ordenador tiende a jugar con cautela y tiene en cuenta tus movi- 
mientos anteriores: 


MARCADORES: EL TUYO O EL MIO O 


La 
¡5 


Movimiento 5 


1234567 


| 
a) 


7 7 
6 *XX.X.X..* 6 
S *.X.X.X.* 5 
A occ or 2 4 
3 *...0.0.% 3 
2 *0.0.0.0% 2 
1...0...*%* 1 


1234567 


He movido de la 74 a la 63 


Desde que casilla 
quieres mover”? 21 
desde la 21 a la? 32 


] 


2 


G 


MARCADORES: EL TUYO O EL MIO O 


[) Movimiento 5 
¡CO 


1234567 


7 7 
6 6 
S *X.X.X.* 5 
A torcc . 
3 *.0.0.0.* 3 
2 *..0.0.0%* 2 
1 1 


PAN 
[) *k...D...* 


1234567 


Cuando comienzan las capturas, el jugador, vigilante, tratará de mante- 
ner el equilibrio de ambas partes: 


E MARCADORES: EL TUYO O EL MIO 1 
A Movimiento 7 
1234567 
TD 
Ly 7 .X...X. 7 
6 *..X.X..* 6 
5 oX.Xon.* 5 
Po 4 Yoco. 4 
3 *.0.X.0.* 3 
LA 2 *..0.0.0% 2 
1%...0...*% 1 


[) 1234567 
y) 


He movido de la 56 a la 34 


E Desde que casilla 


quieres mover? 25 
A desde la 25 a la? 43 


MARCADORES: EL TUYO 1 EL MIO 1 6 
Movimiento 7 


1234567 5 


L 


*.0...0.% 
*..0...0% 
*...0...* 


1234567 


” NUHAaaooy 
* 
o 
E 

r” NU A 0 0 
SAN 
LJ LJ) 


El ganador será el primero que consiga capturar cinco fichas de su 
oponente, así que no hay ni siquiera un pequeño respiro: 


MARCADORES: EL TUYO 3 EL MIO 3 


[) 


Movimiento 13 


1234567 
7 oo X XX. 7 
6 kom... ó 
S *.X.X...* 5 
4 *....0.0% 4 
3 3 
2 2 
1 1 


E 
LJ) 


*.0...0,.% 
Baonooono 


1) 


1234567 


UNE 
LJ 45) 


Desde que casilla 
quieres mover? 45 
desde la 45 a la? 63 


1) 


MARCADORES: EL TUYO 4 EL MIO 3 


28 


Ol 


Movimiento 13 


O 


1234567 
t...X.X. 7 
*..0....* 6 
Xion. * 5 
t.o..o..0% 4 
*.0...0.% 3 
Honra EZ 
onannoo* 1 


1234567 


JO 
L LJ) 
-NURUON 


En esta partida, el jugador logra obtener la victoria: 


MARCADORES: EL TUYO 4 EL MIO 4 


ll 


Movimiento 15 


1234567 
raro. XT 
oornoono* 6 
oXocco.* 5 
*X.0...0% 4 

3 
2 
1 


L) 
L 
-NUH_AauoY 


a... .0.% 
rocoso 
Hoces * 


1234567 


) 


He movido de la 74 a la 32 


a 


Desde que casilla 
quieres mover”? 43 
desde la 43 a la? él 


L) 


MARCADORES: EL TUYO 5 EL MIO 4 
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Movimiento 15 


E 


1234567 
oncnooX.X% 
Do... oooX 
¿roo 
Mo... . 0% 
Lao... 0.% 
A 
ococssed 


1234567 


2 NOA ON 
-NOROOy 
Pol] 
Ñ 


Jo 


Has ganado! 


Aquí tienes el listado para que puedas demostrar tu destreza en el juego 
de tablero EL TRIUNFO DEL SIETE: 


H 1 REM se 16 0646 36 366 26 26 M6 06 3 6 66 MAME EI IEA 310 IF A>60 AND B>2 THEN 350 ¡ 
Ol 2REMe * 320 0=2*Z(B) O) 
! 3 REM * EL TRIUNFO DEL SIETE + 330 IF H(A+Z(B))=79 AND H(A+0)=46 THE | 
1 4 REM + + N 370 1 
O l S REM 166002604 16 16 06 06 26 06 26 06 6 26H 6 HA 340 IF B<4 THEN B=B+1:GOTO 300 ¡ O 
J 10 REM 350 IF A>12 THEN A=A-1:GOTO 280 - 
1 20 GOSUB 840:REM INICIALIZACION 360 GOTO 390 ' 
O | 30 GOSUB 250:REM MOVIMIENTO DEL 370 H(A+Z (B))=46:H(4)=46: H(A4+0) =88: Y= ' O 
¡ ORDENADOR A+Q ' 
s 40 MOVI=MOVI+1 380 X=A: IT=IT+1:GOTO 520 ; 
O ¡ 50 GOSUB 580:REM IMPRESION TABLERO 390 Y=0 O 
I. 60 GOSUB 100:REM MOVIM. DEL JUGADOR 400 Y=Y+1 | 
' 70 GOSUB 580 410 K=INT(RND(1)+67)+11 : 
O ! 80 GOTO 30 420 IF H(K)<>88 AND Y<100 THEN 400 O 
1. 90 REM A o6d6 16 26 2646 6 616 6 6H 6 0H ME EE 430 IF H(K)<>88 THEN 540 
¡ 100 REM MOVIMIENTOS DEL JUGADOR 440 T=1 : 

O ! 110 FL=0 450 PELIGRO=0 O 
1 120 PRINT:PRINT 460 IF K+2*Z(T)>10 AND K+2*Z(T)<78 TH H 
|. 130 PRINT "Desde que casilla" EN IF H(K+2*Z(T1))=79 THEN PELIGRO=1 I 

O í 140 PRINT TAB(8);5"quieres mover"; 470 IF (H(K+Z(T))=46 AND PELIGRO=0) O : O 
J 150 INPUT M R (H(K+Z(T))=46 AND RND(1)>.7) THEN S y 
] 1560 IF H(M)<>79 THEN 150 10 ' 

O ¡| 170 PRINT TAB(6); "desde la"M"a la"; 480 IF T<4 THEN T=T+1:GOTO 470 ¡ O 
] 180 INPUT N 490 IF Y<70 THEN 390 ! 
] 190 IF H(N)<>46 THEN 180 500 GOTO 540 : 

O ¡1 200 H(N)=79 510 H(K+Z(T))=88:H(K)=46: X=K2 Y=K+Z (T) 1 Y 
i 210 IF ABS(M-N)=22 OR ABS(M-N)=18 THE 520 RETURN ! 
I N HC((M+N) /2) =46: ME=ME+1 530 REM 43696362606 6 602 0604 ¡ 

O 1. 220 H(M)=46 540 REM FIN DEL JUEGO O 
1” 230 RETURN 550 PRINT TAB(5);"Me rindo ante el hu 1! 
; 240 REM dede 2606 6d 06 0 M6 manoide!" ! 

O ¡| 250 REM MOVIMIENTOS DEL ORDENADOR 560 END ¿O 
! 260 FL=1 570 REM 433646364646 36-16-16 46 HE M6 DIE IEA IA ) 
1 270 A=76 580 REM IMPRESION DEL TABLERO ' 

O 1. 280 IF H(A)<>88 THEN 350 590 CLS:PRINT:PRINT O 
! 290 B=1 600 PRINT "MARCADORES: EL TUYO"ME"EL : 
1 ' 


300 IF A<28 AND Bx<3 THEN 340 MIO"IT 
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610 IF INT(MOVI)<10 THEN Q=2 ELSE U=1 
620 PRINT:PRINT TAB(U) 5 "Jugada" INT (MO 
vI) 

630 PRINT TAB(11)5"1234567" 

640. PRINT TAB (7) 3 "oasis * 

650 FOR J=70 TO 10 STEP-10 

660 A=H (J+1):B=H (J+2) : C=H (J+3) 

670 D=H(J+4) :E=H(J+5) : F=H (J+6) 

680 G=H (J+7) 

690 PRINT TAB(7)53J/103"*"5CHR$(A)5 
700 PRINT CHR$ (B) 3 CHRA$ (C) ¿ CHR$(D) 5 
710 PRINT CHR$(E) 5 CHR$(F) 5 CHR$ (G) 5 


720 PRINT "*"sJ/10 
730 NEXT J 
740 PRINT TAB(7) 5 "-===========-- " 


750 PRINT TAB(11)"1234567" 
760 1F FL=1 THEN PRINT:PRINT 
do de la"X"a la"Y 

770 1F IT=5 OR ME=S THEN 790 
780 RETURN 

790 PRINT 

800 IF IT=5S THEN PRINT TAB(12);"He ga 
nado!" 

810 IF ME=5 THEN PRINT TAB(10); "Has yg 
anado!" 

820 END 

830 REM 46436464616 36 46 36-446 6 36 de 
840 REM INICIALIZACION 


“He movi 
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850 DEFINT A-Z 

860 DIM H(87),7 (4) 

870 CLS 

880 PRINT:PRINT TAB(8)3"Por favor, at 
ento" 


890 PRINT "y preparate para una derro 
ta" z 

900 IT=0:ME=0 

910 FL=0:MOVI=0 

920 FOR A=1 TO 87 

930 IF A>77 OR A=70 OR A=40 OR A=68 O 
R A=69 OR A=50 OR A=59 OR A=58 OR A=4 
O OR A=49 THEN 980 

940 IF A=30 OR A=38 OR A=39 OR A=20 O 
R A=28 OR A=29 OR A=18 OR A=19 OR A<1 
1 THEN 980 

950 H(A)=46 

960 IF A=72 OR A=74 OR A=76 OR A=41 O 
R A=63 OR A=65 OR A=67 THEN H(A)=88 
970 IF A=21 OR A=23 OR A=25 OR A=27 O 
R A=12 OR A=14 OR A=16 THEN H(A)=79 


980 NEXT A 

990 FOR T=1 TO 4 

1000 READ Z(T) 

1010 NEXT T 

1020 RETURN 

1030 DATA -11,-9,11,9 


Oooo. Oo 


O 


ooo. Oo 


APENDICES 


LISTADOS DE 

ALGUNOS PROGRAMAS 
PARA SPECTRUM, 
AMSTRAD, COMMODORE 
Y APPLE ll 


1 


Adaptación del BASIC de 
Microsoft al Spectrum 


El BASIC del Spectrum tiene particularidades muy especiales pero no 
por ello es incompatible con el universal BASIC de Microsoft. Las modifica- 
ciones a efectuar en los programas de este libro para las máquinas de 
Sinclair son pocas y no plantean problemas. Algunas órdenes del BASIC de 
Microsoft no existen en el BASIC de Sinclair, pero son fácilmente imple- 
mentables. 

Entre las particularidades de Sinclair nos encontramos, en primer lugar, 
con la necesidad de preceder las sentencias de asignación con la orden LET 
debido a la forma especial de entrada de palabras clave del Spectrum. Otro 
aspecto a tener en cuenta es la manipulación de cadenas. En el Spectrum, la 
fragmentación de éstas se efectúa mediante la palabra clave TO. En el 
BASIC de Microsoft se emplea LEFTS, MIDS$ y RIGHTS para separar por 
la izquierda, por el centro y por la derecha, respectivamente. Las matrices 
de caracteres del BASIC Sinclair son diferentes en cuanto que su último 
subíndice indica la longitud de cada cadena de la matriz. Será necesario 
añadir este último número al hacer la adaptación, teniendo en cuenta que 
debe ser lo suficientemente grande como para alojar la cadena de mayor 
longitud que se manipule. 

En cuanto a órdenes no existentes en el Spectrum, se pueden destacar, 
por ejemplo, ON ... GOTO y ON... GOSUB. Estas órdenes cambian el flujo 
del programa a una entre varias sentencias según el valor de una variable. 
Esto se puede adaptar perfectamente mediante sentencias IF... THEN. 
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Por último, cabe recordar que la pantalla del Spectrum tiene tan sólo 
treinta y dos columnas, a diferencia de las máquinas MSX que en su modo 
de texto normal tiene treinta y siete. Esto deberá tenerse en cuenta a la hora 


de adaptar las sentencias PRINT. 


480 GO SUB 3500 
490 LET a$="ALIENIGENAS DESTRUI 
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ARGO" AND alcance=2)5("CORTO" AN 
D alcance=1)3"” ALCANCE" 


1 
1 1 REM eee 0616 16 26 M6 66 36 dd IIA DOS: "+STR$ (alien): GO SUB 3500 ¡ O 
O H 2 REM +* + 500 LET a$="COORDENADAS GALACTI ; 
' 3 REM * BASE ESPACIAL 2000 + CAS: "+STRS s1+","+STR$ s2: GO S 
1 4 REM + * UB 3500 ] O 
O | A iii S10 PRINT : PRINT z$: PAUSE 100 ' 
10 REM 520 RETURN i 
' 20 GO TO 5500: REM GRAFICOS 330 REM sere 6 6 dd 26 6H MH 
O | 25 60 SUB 5000: REM INICIO 540 REM ESTADO DE LA NAVE O) 
] 30 GO SUB 190: REM NOMBRE DEL 345 INK 7: PAPER 1: BORDER 1: C i 
] CUADRANTE LS 1 
O 5 40 IF caso<5 AND RND<.3 THEN 547 IF energia<O0 THEN LET ener j O 
Í GO SUB 1900 ia=0 ' 
' SO GO SUB 540: REM ESTADO DE 350 PRINT : PRINT — INK 55">RESE 
O | LA NAVE RVAS DE ENERGIA: "senergia: PRIN ¡O 
: 60 GO SUB 700: REM SCANNER Y ¡ 
' 70 GO SUB 1070: REM MOVIMIENTO 560 IF energia>1 THEN GO TO 63 1 
O | DE LA NAVE o O 
i 80 IF b$="N" THEN GO TO 120 580 LET a$="AGOTO LAS RESERVAS 1 
1 85 IF encontrado THEN GO TO 1 DE ENERGIA. SU VIAJE HA FINALIZ 
O | 700: REM ATERRIZAJE EN BASE ADO. SOBREVIVIO DURANTE ¡O 
Il.” ESPACIAL 2000 "+STR$ (centones-1000)+" CENTONE 
! 90 GO SUB 190 s" 
O | 100 60 SUB 540 590 GO SUB 3500 O 
! 110 GO SUB 700 600 LET a$="DURANTE SU VIAJE HA 
i 120 GO SUB 1300: REM DISPARO DESTRUIDO "+STR$ alien+" NAVE 
O l 130 GO SUB 540 S ALIENIGENAS": GO SUB 3500 ' O 
1 140 GO SUB 1580: REM ATAQUE 610 PRINT ! 
l ALIENIGENA 620 GO TO 1860 
O ¡ 150 LET centones=centones+1 630 IF energia>50 THEN GO TO 6 O 
1 160 LET bs$="" 70 ! 
; 170 GO TO ZO 640 FOR m=1 TO 3: PRINT  INK 2; 
O 1. 180 REM q4o ot 4 dh dt 04 6 0 96 26 6 II PAPER 6; FLASH 1; INVERSE ABS ( ; O 
! 190 REM NOMBRE DEL CUADRANTE n-2)5TAB 113" PELIGRO ! 
y 200 CLS "2 NEXT n 
O 1 210 PRINT AT 1,75"DIARIO DE A B 650 PRINT : PRINT  INK 5;">> RE O 
¡ ORDO"5AT 2,73 "=================" SERVAS DE ENERGIA AL MINIMO": PR ¡ 
1 2 PRINT INT 1 
O ' 220 LET a$="ESPACIO: SECTOR " 660 LET a$="URGENTE REPOSTAR EN h O 
1. 230 LET p=INT (s1/9+1): LET q=1 ERGIA EN BASEESPACIAL ALIADA."”: ! 
| NT (s2/9)+1 GO SUB 3500 ' 
O | 280 IF p>4 THEN GO TO 380 £70 PAUSE 200 LO 
1 290 LET a$=a$+("PEGASUS" AND q= 680 RETURN 
] 1)+("AQUARIUS" AND q=2)+("ERIDAN 690 REM 4034104646 36 46 10-14 36 4034 26 16-24 24-40 14 20 2014 2046 
O 1 US" AND q=3)+("HYADES" AND q=4) 700 REM SCANNER | O 
! 300 LET a$=a$+("CANIS MAJOR” AN 720 INPUT INK 43"DESEAS USAR E 
tr D q=5)+("URSA MAJOR” AND q=6)+(" L SCANNER? (S/N) "3 LINE cs$ | 
O p OPHIUCHUS" AND q=7)+("CEPHEUS" A 730 IF c$<>"N" AND c$<>"S" THEN ! O 
i ND q=8) GO TO 720 ! 
1 370 GO TO 460 740 IF c$="N" THEN RETURN h 
O y 380 LET a$=a$+("CASIOPEIA" AND 741 LET p=200: LET al=200: LET : O 
! q=1)+("TRIANGULUM” AND q=2)+("AU ab=200: LET prox=0 
] RIGA" AND q=3)+("ANDROMEDA" AND 745 INPUT — INK 65"LARGO O CORTO ' 
O | q=4) ALCANCE? (L/C) "3 LINE cs O 
! 390 LET a$=as$+("ORION" AND q=5) 746 IF cs$<>"L” AND c$<>"C" THEN 
y +C("DRACO" AND q=6)+("CENTAURUS” GO TO 745 ; 
O , AND q=7)+("CYGNUS" AND q=8) 747 LET alcance=1+(c$="L") i O 
1 460 GO SUB 3500 750 LET energia=energia-alcance : 
: 470 LET as$="TIEMPO: "+STR$ cent 751 CLS 
O ' ones+" CENTONES" 755 PRINT AT 0,5;"SCANNER "5 ("L O 
1 
! ' 


o0D0U0DUO OO OOO OOOO OoosOomOo 


oo Oo O 


O 


O 


756 PRINT AT 1,53 "============= 
Imma” 

770 LET x1=51-4*alcance: LET x2 
=s1+4*alcance 

780 LET y1=52-4*alcance: LET y2 
=52+4*alcance 

862 LET iz=14-alcance*4: LET de 
=15+4*alcance: LET fin=12+(alcan 
ce=1)+9*(alcance=2) 

864 FOR n=iz TO de: PRINT  INK 
S3AT 3,n3CHR$ 143;AT fin,n;CHR$ 
143: NEXT n 

866 FOR n=3 TO fin: PRINT  INK 
SjAT n,iz3CHR$ 143;AT n,de;CHR$ 
143: NEXT n 

8657 LET fila=4: LET columna=iz+ 
1 

868 FOR x=x1 TO x2 

870 FOR y=y1 TO y2 

872 IF x<1 OR x>64 OR y<1 OR y> 
64 THEN GO TO 890 

874 LET p=SOR ((x-s1)*(x-s1)+(y 
-52)* (y-82)) 

876 LET p=INT (p*1000)/1000 

880 IF a(x,y)=0 THEN BEEP .O1, 
Lo] 

882 IF a(x,y)=sh THEN PRINT 1 
NK 2; PAPER 65 FLASH 15AT fila,c 
olumaj;"*": BEEP .05,50 

884 IF a(x,y)=ta THEN LET prox 
=p: PRINT  INK SAT fila,columna 
3CHR$ 146: BEEP .02,32 

886 IF a(x,y)=al THEN PRINT 1 
NK 7;3AT fila,columma;CHR$ 144: B 
EEP .03,-25: IF p<al THEN LET a 
1=p: LET gh=x: LET gj=y 

888 IF a(x,y)=sb THEN PRINT 1 
NK 63AT fila,columnmazCHR$ 145: B 
EEP .02,161 IF p<ab THEN LET ab 

890 LET columma=columna+1 

892 NEXT y 

894 LET columas=iz+1: LET fila= 
fila+1 

896 NEXT x 

975 PRINT 03 "PULSE <ENTER> PAR 
A CONTINUAR" 

976 IF CODE INKEY$<>13 THEN GO 

TO 976 


980 CLS 
985 PRINT AT 2,6; "============= 
======="5 INK 6: INVERSE 13 BRIG 


HT 15AT 1,6;"LECTURAS DEL SCANNE 
Ru>»> 

1000 IF ai<>200 THEN LET a$="AL 
IENIGENA MAS CERCANO: "+STR$ al: 
GO SUB 3500 

1010 IF ab<>200 THEN LET a$="BA 
SE ESPACIAL MAS CERCANA: "+STR$ 
ab: GO SUB 3500: PRINT 

1020 IF prox=0 THEN LET a$="LA 
BASE ESPACIAL 2000 ESTA A + 
STR$ (100*ABS ((s1-b1)+(s2-b2))) 
+" PARSECS DE NOSOTROS": GO SUB 
35300: GO TO 1040 

1025 FOR n=1 TO 21 

1026 PRINT  INK 653 OVER 153AT 7,2 
3 "BASE ESPACIAL 2000 DETECTADA": 
PAUSE 10: IF INT (nm/2)<>1nm/2) T 


HEN  BEEP .1,20 

1030 NEXT n: PRINT 

1035 LET a$="DISTANCIA: "+STR$ p 

rox+" PARSECS": GO SUB 3500: PAU 

SE 50: LET a$="!ESTA A NUESTRO A 

LCANCE!'": GO SUB 3500 

1040 PAUSE 200 

1050 RETURN 

1060 REM 36 3636 26 26 26 14 dd E 16-46 dE M6 dd 6H 
1070 REM MOVIMIENTO DE LA NAVE 
1080 PRINT : LET as$="CODRDENADAS 
GALACTICAS: "+STRS$ s1+","+STRS$ 

s2: GO SUB 3500: PRINT 

1090 INPUT  INK 43 "DESEAS MOVER 
LA NAVE? (S/N) "3 LINE b$ 

1100 IF b$<>"N" AND b$<>"S" THEN 
60 TO 1090 

1110 IF b$="N" THEN RETURN 

1111 INPUT INK 43"A QUE DISTANC 
IA? (1-5) "jk 

1112 IF k<1 OR k>5 THEN GO TO 1 
111 

1120 LET energia=energia-3+*k 
1130 INPUT  INK 45"DIRECCION? (N 
/S/E/0) "3 LINE ds$ 

1140 IF d$<>"N" AND d$<>"S” AND 
d$<>"E" AND d$<>"0" THEN GO TO 
1130 

1150 LET a(s1,s5s2)=0 

1160 IF d$="N" THEN LET si=(s1< 
=k)+(s1-k)*(s1>k) 

1170 IF d$="S" THEN LET si=64*( 
k+51>=64)+(s1+k)* (k+s51<64) 

1180 IF d$="0" THEN LET s2=(s2< 
=k)+(52-k)* (s2>k) 

1190 IF d$="E" THEN LET s2=64*( 
k+52>=64)+(52+k)* (k+52<64) 

1240 IF a(s1,s2)=al THEN LET as$ 
=" DOMINGUERO!' HAS CHOCADO CONTR 
A UNA NAVE ALIENIGENA. KAPUT!!:" 
: GO SUB 3500: LET energia=0 
1250 IF a(s1,5s2)=sb THEN LET a$ 
="HAS ENTRADO EN UNA BASE ESPACI 


AL": GO SUB 3500: LET energia=en 


ergia+S5 

1260 IF a(s1,s2)=ta THEN LET en 

contrado=1 

1270 LET a(s1,s2)=sh: PAUSE 200 

1280 RETURN 

129) REM 46611646 16d 6d 16 6 26 6 Hd Md E 6 

1300 REM DISPARO 

1310 INPUT  INK 4;5"DESEAS DISPAR 

AR EL LASER?(S/N) "3 LINE b$ 

1320 IF b$<>"N" AND b$<>"S" THEN 
GO TO 1310 

1330 IF b$="N" THEN RETURN 

1340 INPUT  INK 45"A QUE DISTANC 

IA? (1-8) ”; 

1350 IF k<1 OR k>8 THEN GO TO 1 

340 

1360 LET energia=energia-k*2.5 

1370 INPUT  INK 45"EN QUE DIRECC 

ION? (N/S/O/E) "3 LINE b$ 

1380 IF b$<>"N" AND b$<>"S" AND 

bs$<>"0" AND b$<>"E" THEN GO TO 

1370 

1382 INK O1 PAPER 6: BORDER 6: C 

LS 

1384 PRINT AT 1,55; "VISUALIZACION 


O 


OOO OOOO OOOO O 


O. “O ¿0 0/0: 50 


O 


o. oO 
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0000000. CO.0.Q0L.L.LDU0.O. OO O OOOOOOOO 


DISPARO"5AT 2,53 "============== 
umm =z 
1385 LET j=8 
1385 FOR i=1 TO k:z PRINT AT 4,j5 
ii LET j=j+32 NEXT i 
1388 PRINT INK 3;5AT 6,15CHR$ 14 
753CHRs$ 149 
1390 LET m=s1 
1400 LET n=s2 
1420 FOR j=1 TO k:z PAUSE 30 
1440 IF b$="N" THEN LET m=m-1 
1450 IF b$="S" THEN LET m=m+1 
1460 IF b$="0" THEN LET n=n-1 
1470 IF b$="E" THEN LET n=n+1 
1480 IF m<1 OR m>464 OR n<1 OR nm> 
64 THEN GO TO 1520 
1490 IF a(m,n)=al THEN LET 1$=C 
HR$ 144: GO SUB 1332: LET a$="AL 
IENIGENA DESTRUIDO": GO SUB 3500 
2: LET alien=alien+1: LET a(m,n)= 
O: LET gh=0: LET gj=0: GO TO 153 
[o] 
1500 IF a(m,n)=sb THEN LET 1$=C 
HR$ 145: GO SUB 1552: LET a$="BA 
SE ESPACIAL DESTRUIDA": GO SUB 3 
500: LET a(m,n)=0: LET energia=e 
nergia/2: GO TO 1530 
1510 IF a(m,n)=ta THEN LET 1$=C 
HR$ 146: GO SUB 1552: LET as$="BA 
SE E. 2000 DESTRUIDA": GO SUB 35 
00: LET energia=0: GO TO 1530 
1520 LET 1$=CHR$ 32: GO SUB 1552 
2 LET a$="NADA": GO SUB 3500 
1530 NEXT j 
1540 PAUSE 200 
1550 RETURN 
1552 LET tinta=INT (RND*2+1): LE 
T posicion=5+3*j 
1554 PRINT  INK tinta;AT 6,posic 
ion;1l$: PAUSE 30 
13555 PLOT 24,121: DRAW 15+(3+*24) 
,03 BEEP .01,10: BEEP .01,9 
1556 PLOT INVERSE 1524,121: DRA 
W  INVERSE 1515+(j%*24),0 
1557 FOR v=1 TO 3: BEEP .01,13: 
PRINT — INK tinta;AT 6,posicion;C 
HRS 149: BEEP .1,-38: PRINT  INK 
tintajAT 6,posicionjCHR$ 1501 B 
EEP .1,-40: NEXT y 
1558 PAUSE 3: PRINT AT 6,posicio 
n3" ": PRINT AT 8+j,03 "SECTOR "3 
q; 
1559 RETURN 
1560 REM 303630363636 3620-20 26 36-16-36 36 M2 20 80 40 46 dd de 
1580 REM DISPARO ALIENIGENA 
1590 IF gh=0 OR gj=0 OR RND>.S T 
HEN RETURN 
13591 INK 7: PAPER 2: BORDER 2: C 
Ls 
1595 PRINT  INK O5AT 1,113"ATENC 
ION"5AT 2,55 "DISPAROS ALIENIGENA 
“507 3,53 "sa=mns=cezmes=acomammo" 
16500 PRINT : LET a$="NAVES ALIEN 
IGENAS EN "+STR$ gh+","+STR$ gj: 
GO SUB 3500: LET as$="ESTAN DISP 
ARANDO A NUESTRA NAVE": GO SUB 3 
500: PRINT 
1510 PAUSE 200 
16520 LET r=INT (RND*4) 
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1530 IF r=0 THEN LET a$="VOTO A 
BRIOS, QUE TIENES SUERTE, PARDIE 

Z. LOS EXTRATERRESTRES HAN FA 

LLADO EL TIRO!'": GO SUB 3500 
16540 IF r=1 THEN LET as$="LOS DI 

SPAROS ALIENIGENAS HAN GOLPEA 

DO EN EL ESTRIBOR DE LA NAVE. 

AVERIAS SIN IMPORTANCIA.": GO SU 

B 3500: LET energia=energia-4.73 
: PRINT : LET a$="SOLO TU SUEGRA 
HA SIDO HERIDA, PORQUE ” CASUAL 
MENTE” ESTABA EN LA ZONA ALCANZ 

ADA": GO SUB 3500 

1650 IF r=2 THEN LET a$="LOS DI 

SPAROS ALIENIGENAS HAN DESTRU 
IDO LOS CAMAROTES DE LA TRIPUL 
ACION. AVERIAS LEVES.": GO SUB 3 
500: LET energia=energia-18.25: 

PRINT 2: LET a$="NO TE FREOCUFES, 
SON SOLO VULGO PROLETARIADO": G 
O SUB 3500 

1560 IF r=3 THEN LET a$="LOS DI 
SPAROS ALIENIGENAS HAN DESTRU 
IDO LA SALA DE MANDOS. AVERIA 
S GRAVES": GO SUB 3500: LET ener 
gia=energia-30.55: PRINT 2 LET a 
$="LO PEOR ES QUE NUESTRO POSTER 
DEMADONNA SE HA QUEMADO SNIF,SN 
IF!":z GO SUB 3500 

1670 PAUSE 200 

1675 PAPER 1: BORDER 12 CLS 

1480 RETURN 

1690 REM 44606 36-14 26-24 26 20 26 6-40 26 2606 10 6 26 20M 0 4d 
1700 REM FIN DE LA BUSQUEDA 

1710 CLS 

1720 PRINT  INK 23 PAPER 63 FLAS 

H 13 BRIGHT 13AT 1,73" LO CONSEG 

VISTE :"*>” 

1730 LET personas=1000+INT (RND+* 
1000) 

1740 LET a$="HAS ENCONTRADO LA B 

ASE ESPACIAL 2000, Y CON EL SUER 

O QUE LLEVAS,PODRAN RECUPERARSE 

LAS "+STR$ personas+" PERSON 

AS QUE QUEDAN VIVAS": GO SUB 350 

o 

1760 BEEP .3,7: BEEP .3,6 

1770 BEEP .3,5: BEEP .7,4 

1780 BEEP .3,73 BEEP .7,14: BEEP 
.3,12 

1790 BEEP .5,12: BEEP .7,11: PAU 

SE 10 

1800 BEEP .3,7: BEEP .3,6: BEEP 
.3,5: BEEP .7,4: BEEP .3,7: BEEP 
.7,14: BEEP .3,12: BEEP .5,11 
1810 PRINT : PRINT z$: PRINT 
1820 LET puntos=INT (personas+ce 

ntones+energiaralien-1000) 

1830 LET a$="SU PUNTUACION ES "+ 

STR$ puntos: GO SUB 3500 

1840 INFUT INVERSE 15"QUIERES V 

OLVER A JUGAR? (S/N) "5 LINE h$ 
1841 IF h$="N" THEN STOP 

1850 GO TO 25 

1860 LET a$="DESAFORTUNADAMENTE, 
NO ENCONTRO LA BASE ESPACIAL 20 

O00,QUE ESTABAEN LAS COORDENADAS 
"+STR$ b1+","+STR$ b2: GO SUB 35 

00 


O 
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O 
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1870 GO TO 1810 

1890 REM 3636362 16-16 26 26 26-16-2626 36 3636 EII III 

1900 REM CASOS 

1910 LET caso=caso+1 

1930 IF caso<i OR caso>5S THEN R 

ETURN 

1935 INK 4: PAPER O: BORDER O: C 

LS 

1937 PRINT AT 1,3;"MENSAJE DE LA 
COMPUTADORA"5AT 2,33 "========== 

Amara ">> 

1940 GO SUB 2000+caso*100 

1950 PAUSE 200 

1970 RETURN 

2000 REM 46 46 4616 dh 4 1 Md 36d 6 dd 16 6d 6 dd 
2100 LET a$="SU NAVE HA INTERCEP 

TADO UNA EMISION DE RAYOS GA 
MMA, CUYO FOCOESTA SITUADO EN ALF 
A CENTAURO...": GO SUB 2500 
2110 PAUSE 200 

2120 PRINT : LET a$="DEBIDO A DI 
CHAS EMISIONES, SU NAVE ES DES 
VIADA DE SU RUMBO. ": GO SUB 3500 


2125 LET a(s1,52)=0 

2130 LET si=s1+2: LET s2=52-2 
2140 IF s1>64 THEN LET s1=64 
2150 IF s2<1 THEN LET s2=1 

2155 LET a(s1,52)=sh 

2150 RETURN 

2190 REM 4636 m6 dl dl 26 6 0 dd dd 0 HA EM 
2200 LET a$="LOS SENSORES DE LA 
COMPUTADORA DETECTAN UNA INUSUA 
L ACTIVIDAD ATOMICA DE GRAN MAG 
NITUD EN LAS CERCANIAS DE VEGA, 
DIRIGIENDOSE HACIA ANTARES...": 
GO SUB 3500 

2210 PAUSE 200 

2220 PRINT : LET a$="ESTAS RADIA 
CIONES NUCLEARES SIN DUDA AFECTA 
RAN AL FUNCIONAMIENTODEL SCANNER 
.": GO SUB 3500 

2225 LET a(b1,b2)=0 

2230 LET b1=b1+4: LET b2=b2-4 
2240 IF b1>44 THEN LET b1=44 
22530 IF b2<1 THEN LET b2=1 

2255 LET a(b1,b2)=ta 

2260 RETURN 

2290 REM 3d 0646 dh 16 10 16 26 M6 M6 Dd MM Hd 
2300 LET a$="SENALES RECIBIDAS D 
E LA NEBULOSADE OMEGA, A UNA DIST 
TANCIA DE 337PARSECS, MUESTRAN U 
N AUMENTO DE LA CANTIDAD DE SODI 
O EN EL POLVOINTERESTELAR...": G 
O SUB 3500 

2310 PAUSE 200 

2320 PRINT : LET a$="DEBEMOS UTI 
LIZAR EL 12% DE LA ENERGIA PAR 
A REFORZAR NUESTRAS BARRERAS DE 
FENSIVAS.": GO SUB 3500 

2330 PAUSE 200 
2340 PRINT 3 PRINT 
VAS DE ENERGIA ANTES DEL 
RZO: "jenergia 

2350 LET energia=energia*.78 
2360 PAUSE 200 

2370 PRINT : PRINT  INK 63 "RESER 
VAS DE ENERGIA DESPUES DEL REFUE 
RZO: "jenergia 


INK 55 "RESER 
REFUE 


2380 RETURN 

2390 REM 403626262636 26-16 26 30 26 6 26 6H 2 A 6 160 20 26 
2400 LET a$="SENSORES DELANTEROS 
DE LA NAVE INFORMAN DE LA CREA 
CION DE UNA ESTRELLA EN LA NEBU 
LOSA M16. LASREACCIONES PROTONIC 


AS GENERAN TEMPERATURAS INTERI 
ORES DE HASTA17x10"6 GRADOS CENT 
IGRADOS...": GO SUB 3500 

2410 LET as="DEBEMOS ALEJARNOS R 
APIDAMENTE DEESTE SECTOR...":z GO 
SUB 3500 

2420 PAUSE 200 

2430 PRINT  INK 35 PAPER 63 FLAS 


H 13AT 13,43” MOTOR TURBO CONECT 
ADO!" 

2435 FOR i=-10 TO 20: BEEP .O1,i 
2 NEXT i 

2440 LET a(s1,52)=0 

2450 LET si=s1+INT (RND*3):2 LET 
s2=52+INT (RND*3) 

24560 IF s1>64 THEN LET s1=64 
2470 IF s2>64 THEN LET s2=64 
2473 LET a(s1,s2)=sh 

2480 RETURN 

2490 REM 4463626 dd 6d dd HH II A 
2500 LET a$="PELIGRO...PELIGRO.. 
.-": GO SUB 3500 

2510 PAUSE 100: IF RND>.7 THEN 
60 TO 2500 

2520 PRINT  INK 63 "AGUJERO NEGRO 

“5 INT (RND*1000)3" PARSECS" 

2530 PAUSE 200 

2540 PRINT : LET a$="AUTOMATICAM 
ENTE CONECTADAS LAS LENTES GRAV 
ITACIONALES": GO SUB 3500 

2545 LET a(s1,s2)=0: PAUSE 100 
2550 LET m=s2: LET s2=s1: LET si 
=m 
2555 LET a(s1,s2)=sh 

2560 PRINT 
2570 LET a$="COMO RESULTADO DE L 
A EXTREMA PRESION, LA NAVE HA 
SALTADO AL HIPERESPACIO": GO S 
UB 35300 
2580 PAUSE 100 

2590 RETURN 
3490 REM 34464646 46 16 36-16 46 36-16-26 26 16 36d 6 M6 dd A dd 
3500 REM CODIFICADOR MENSAJES 
3510 LET w=LEN a$ 

3320 FOR x=1 TO (w-1) 

3530 IF as(x)=" " THEN PRINT " 
"5: GO TO 3550 

3540 PRINT a$(x)5:2 BEEP .02,12 
3550 NEXT x 

3560 PRINT as$(w) 

3570 RETURN 

4990 REM 4446162636 36 36 26 30 6 46-36 dl dd 26 HH M6 EEE 
5000 REM INICIALIZACION 

5010 CLS 

5040 RANDOMIZE 

5080 DIM a(64,64) 

5090 LET al=CODE ("A”):2 

REM ALIENIGENA 

5110 LET sh=CODE ("S"): 

REM NAVE DEL JUGADOR 

5120 LET sb=CODE ("B"): 

REM BASE ESPACIAL ALIADA 

5130 LET ta=CODE ("T"): 


O 


O 
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REM BASE ESPACIAL 2000 
5140 LET centones=1000: LET ener 
gia=300: LET alien=0 
5230 LET z$=CHR$ 16+CHR$ 2+"w3xx* 
IMM EA MMMM RHMANR RINA" 
5240 REM ** CREAR UNIVERSO +* 
5250 FOR m=1 TO 300 
5260 FOR n=1 TO 2 
5270 LET c=INT (RND*54>3+1: LET d 
=INT (RND+*64)+1 
5280 IF n=1 THEN LET a(c,d)=al 
5290 IF n=2 THEN LET a(c,d)=sb 
5300 NEXT n 
5305 IF INT (m/10)=m/10 THEN C 
IRCLE  INK 653127,87,(m/3.43): BE 
EP .01,m/6 
5310 NEXT m 
S315 PRINT  INK 23 PAPER 75 BRIG 
HT 13AT 10,5;"* BASE ESPACIAL 20 
00 +*'": PAUSE 200 
5320 REM BASE ESPACIAL 2000 
5330 LET bi=INT (RND*64)+1:3 LET 
b2=INT (RND*54)+1 
5340 LET a(b1,b2)=ta 
5350 REM NAVE DEL JUGADOR 
5360 LET s1=INT (RND*54)+1: LET 
s2=INT (RND*54)+1 
5370 IF si=b1 OR s2=b2 THEN GO 
TO 5360 
5380 LET a(s1,52)=sh 
5390 LET personas=0: LET gh=0: L 
ET qj=0: LET caso=0: LET encontr 
ado=0 
5395 PAUSE 200 
5400 CLS 
5410 PRINT — INK 45AT 1,15;3CHRS 1 
44: PRINT — INK 65AT 2,8;"NAVE AL 
IENIGENA" 
5420 PRINT — INK 55AT 8,155CHRS 1 
45: PRINT — INK 453AT 9,63"BASE ES 
PACIAL ALIADA" 
5430 PRINT — INK 25AT 15,15; CHR$ 
146: PRINT  INK £4;AT 16,7; "BASE 
ESPACIAL 2000" 
5440 PRINT $05" PULSE UNA TECLA 

PARA EMPEZAR": PAUSE O 
5450 RETURN 
5500 REM 4364636 2636 46 dd 36 6 A IEA HA 6 
5505 REM CARACTERES DEFINIDOS 
5510 CLEAR 43999 
5520 INK 7: PAPER 1: BORDER 1: C 
Ls 
5530 PRINT FLASH 15 BRIGHT 1;5AT 

12,6;"* ESPERA UN MOMENTO +" 
5540 POKE 23658,8: POKE 23609,35 
5560 POKE 23606,0: POKE 23607,24 
9 


5570 FOR x=15616 TO 16383: POKE 
x+48384,PEEK x: NEXT x 

5580 RESTORE £500: FOR x=64128 T 
O 64207: READ yz POKE x,y:z NEXT 

Xx 

5590 FOR x=64264 TO 64471: READ 
y: POKE x,y:z NEXT x 

5600 FOR x=USR "A" TO USR "G"+7: 
READ yz POKE x,y2z NEXT x 

5610 GO TO 25 

6000 REM 34363636 2616-3626 6 26 6d dd 6 IEEE 
6010 REM DATOS 

6500 DATA 0,126,98,114,106,102,1 
26,0,0,56,24,24,24,24,126,0,0,12 
6,6,125,95,96,126,0 

6510 DATA 0,126,6,126,6,6,126,0, 
0,14,22,38,70,126,6,0,0,126,96,9 
6,126,6,126,0 

6520 DATA 0,126,96,126,98,98,126 
,0,0,126,6,6,12,24,48,0,0,126,98 
,60,98,798,126,0 

6530 DATA 0,126,70,126,6,70,126, 

0,0,126,98,126,98,98,98,0,0,126, 

98, 124,98,98,126,0 

6540 DATA 0,126,965,96,96,96,126, 

0,0,126,98,98,98,98,126,0,0,126, 

96,126,96,96,126,0 

6550 DATA 0,126,96,126,96,96,96, 

0,0,126,96,96,110,98,126,0,0,98, 

98, 126, 98,98,98,0 

65650 DATA 0,24,24,24,24,24,24,0, 

0,6,6,6,6,70,126,0,0,100,100,126 
,78,78,98,0 

6570 DATA 0,96,96,96,96,98,1265,0 
,0,126,106,106, 106, 106,106,0,0,1 

22,106,106, 106, 106,110,0 

£580 DATA 0,126,70,70,70,70,126, 

0,0,126,98,125,96,96,96,0,0,126, 

98,98,106,106,126,0 

6590 DATA 0,126,998, 124,98,78,98, 

0,0,126,96,126,6,6,126,0,0,126,2 

4,24,24,24,24,0 

6600 DATA 0,98,98,78,98,78,126,0 
,0,98,98,78,98,52,8,0,0,106,106, 
106,106,106,126,0 

6610 DATA 0,66,1072,24,24,1072,66, 

0,0,98,98,126,24,24,24,0,0,126,6 
»12,24,48,126,0 

6620 DATA 129,153,189,231,231,18 

9,153,129,24,24,24,90,90,126,126 
.66 

6630 DATA 0,0,24,60,255,60,0,09,0 
,120,60,30,31,53,127,0 

66540 DATA 0,0,0,0,240,88,254,0,6 
5,4,30,2,144,4,64,9 

6630 DATA 20,64,34,136,65,8,161, 
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1 REM 3034043046 40-16-40 36 26-36-20 46 26 26 E 6 0 6 4 6 0d 
2 REM + * 
3 REM * EL LABERINTO MAGICO + 
4 REM + + 
IN it 
10 REM 
20 60 SUB 7000: REM INICIALIZA 
CION 
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30 PAUSE 50: CLS 
205 LET mov=mov+1 
210 PRINT 1 PRINT — INK 45 INVER 
SE 1;"MOVIMIENTO "3zmov 
250 PRINT : PRINT "Estas en "3n 
$(ro) 
260 IF ro<>1 THEN GO TO 400 
270 LET flag=0 
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280 PRINT  INK 5;"Los objetos d 
epositados son:">>” 

300 FOR z=1 TO 8 

310 IF p$(z)<>a$ THEN PRINT 1 
NK 73"Un"3p$(z)””: LET flag=1 
320 NEXT z 

325 IF flag=0 THEN PRINT "No h 
ay nada">”>” 


400 PRINT — INK 5;"Salidas:"5 


410 IF aí(ro,1)<>0 THEN PRINT 
INK 55 "NORTE "5 

420 IF alro,2)<>0 THEN PRINT 
INK 55 "SUR "3 

430 IF aíro,3)<>0 THEN PRINT 
INK 5;"ESTE "3 

440 IF aíro,4)<>0 THEN PRINT 


INK 53 "OESTE" 

445 PRINT 2 PRINT 

450 IF ro<>1 AND o$(ro)<>a$ THE 
N PRINT "Hay un"3o$ (ro) 

455 IF o$(ro)=a$ THEN PRINT "N 
o hay nada" 

460 IF m$<>"" THEN PRINT "Llev 
as un"3m$ 

470 IF m$="" THEN PRINT "No 11 
evas nada" 

480 GO SUB 500 

490 GO TO 30 

A 
505 REM INPUT 

510 INPUT  INK 7;"Que haces? "; 
LINE es 

520 IF (LEN es)<7 THEN LET es= 
es+" ": GO TO 520 

530 LET f$t=e$( TO 3) 

540 IF f8$="ABA" THEN GO SUB 60 
00: GO TO 1800 

550 IF £$="IR " THEN LET f$=e$ 
(4 TO 6) 

560 IF £$="NOR" OR £$="SUR" OR 
f$="EST" OR £f$="0ES" THEN GO TO 
700 

570 LET z=1 

580 IF es(z)=" " THEN LET g$=e 
$(z+1 TO z+3)2 GO TO 6400 

590 IF z<LEN es THEN LET z=z+1 


: GO TO 580 
595 PRINT  INK 5;"NO ENTIENDO " 
je$: BEEP 1,-25 

598 RETURN 


600 IF f$="C0G" THEN GO SUB 90 
O: RETURN : REM COGER OBJETOS 
610 IF £$="DEJ" THEN GO SUB 10 
00: RETURN : REM DEJAR OBJETOS 
620 GO TO 595 

690 REM 41441646 16 26 36 6 34 36 16-26 36 36-44 M6 16 26 0 dd 
700 REM MOVIMIENTO 

710 LET £f$=F$5$(1) 

720 IF f$="N" THEN GO TO 820 
730 IF f$="S" THEN GO TO 850 
740 IF f$="E" THEN (GO TO 870 
760 IF aí(ro,4)=0 THEN PRINT "N 
O PUEDES ATRAVESAR LAS PAREDES": 
BEEP 1,-20: RETURN 

780 LET ro=aíro,4): GO SUB 6000 
: RETURN 

820 IF alro,1)=0 THEN PRINT "N 
O HAY SALIDA POR ESE CAMINO": BE 
EP 1,-20: RETURN 


830 LET ro=za(ro,1): GO SUB 6000 
2 RETURN 

850 IF alro,2)=0 THEN PRINT "E 
S UNA PARED": BEEP 1,-20: RETURN 


860 LET ro=a(ro,2): GO SUB £000 
: RETURN 

870 IF a(ro,3)=0 THEN PRINT "E 
SO ES IMPOSIBLE": BEEP 1,-20: RE 
TURN 

880 LET ro=za(ro,3)3 GO SUB 6000 
2 RETURN 

A ir 
900 REM COGER OBJETOS 

905 IF ro=1 THEN PRINT "NO PUE 
DES COGER NADA": BEEP 1,-20: RET 
URN 

910 IF g$( TO 3)<>0$ (ro) (3 TO 5 
) THEN PRINT "NO ESTA AQUI": BE 
EP 1,-20: RETURN 

920 IF m$<>"" THEN PRINT "SOLO 
PUEDES LLEVAR UN OBJETO": BEEP 


1,-20: RETURN 

930 LET m$=08$(ro)1 LET osS(ro)=a 
$ 

935 GO SUB £000 

940 RETURN 

980 REM 144640 2646 06-16-2604 -20 26 2-26 26 2 4 dd 10 20 40 
990 REM DEJAR OBJETOS 

1000 IF m$="" THEN PRINT "NO LO 
LLEVAS" BEEP 1,-20: RETURN 
1010 IF ro=1 THEN GO TO 1200 
1020 IF o$(ro)<>a$ THEN PRINT " 
Aqui hay un";zo$(ro): BEEP 1,-203 
RETURN 

1030 LET o$(ro)=m$ 

1040 LET m$="" 

1045 GO SUB 4000 

1050 RETURN 

1200 LET place=0: LET flag=0 
1210 FOR z=1 TO 6 

1220 IF place=1 THEN GO TO 1300 
1230 IF p$(z)=a$ THEN LET p$(z) 
=m$: LET place=1:1 LET m$="" 

1300 IF p$(z)<>a$ THEN LET flag 
=$lag+1 

1310 NEXT z 

1315 GO SUB 6000 

1317 IF flag=0 THEN PRINT "NO H 
AY NADA": PAUSE 100 

1320 IF flag<6 THEN PRINT  INK 
7;3"Queda";5("n" AND flag<5);" "6 
=flag;3" objeto";3("s" AND flag<5) 
3" para terminar" 

1325 PAUSE 200 

1330 IF flag=6 THEN GO TO 1500: 
REM TODOS LOS OBJETOS LOCALIZAD 


1340 RETURN 

1490 REM 4463046 346 26-30-10 366 26 26 16 26 30 M0 IMA 
1500 REM FIN DE JUEGO 

1510 PAUSE 50 

1520 INK 2: PAPER 5: BORDER S1 C 


1530 PRINT AT 2,13;"'BRAVO!" 

1531 LET k$=CHR$ 143+CHR$ 128: L 

ET LS=CHR$ 128+CHR$ 143 

1532 FOR i=4 TO 26 STEP 22 PRINT 
INK 6; PAPER 43 FLASH 13AT 0,i 


O 
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3kS;3AT 5,i5182 NEXT i 

1533 FOR iz=1 TO 3 STEP 2: PRINT 
INK 65 PAPER 45 FLASH 15AT i,43 

1$(1)530T 1,273k8(1)5AT i+1,45k8( 
1)5AT i+1,27318(1)2 NEXT i 

1500 BEEP .25,0: BEEP .2,5: BEEP 
.2,5 

1610 BEEP .2,73 BEEP .2,9 BEEP 
.2,51 BEEP .2,9 

1420 BEEP .25,7: PAUSE 11 BEEP . 

25,0: BEEP .2,5: BEEP .2,5 

1630 BEEP .2,71 BEEP .2,9: BEEP 
.3,5: BEEP .3,4.3 

16540 PAUSE 13 BEEP .235,0: BEEP . 

2,5: BEEP .2,5 

1650 BEEP .2,7: BEEP .2,9: BEEP 
.2,9.5: BEEP .2,9 

1560 BEEP .2,7: BEEP .2,5: BEEP 
.2,4.3: BEEP .2,0 

1670 BEEP .2,2.5: BEEP .2,4.3: B 

EEP .3,5: BEEP .3,5 

1700 PRINT — INK 15AT 7,83"'LO CO 

NSEGUISTE!"3AT 9,03"LOS OBJETOS 

QUE HAS TRAIDO SON: " 

1710 FOR z=1 TO 8 

1720 IF p$(z)<>a$ THEN PRINT 1 

NK 2;3TAB 43"Un"3p$(z): PAUSE 100 
1730 NEXT z 

1750 PRINT INK 95AT 20,33"HAS T 

ARDADO "3mov3" MOVIMIENTOS" 

1760 INPUT FLASH 13 BRIGHT 13"0 

TRA PARTIDITA?(S/N) "3 LINE hs$ 
1770 IF h$="N" THEN STOP 

1780 RUN 

1785 REM 44646 dt 1644-2636 36 46 36 16 6 dE dd 6 M6 46 46 Hd 
1790 REM ABANDONAR JUEGO 

1800 INK 6: PAPER 23 BORDER 2: C 

Ls 


1810 PRINT  INK O5AT 1,35 "NUNCA 
PENSE QUE FUERAS UN” 
1820 PRINT AT 4,73"!!!! COBARDE 


trcass 

1830 BEEP .1,-1.7: BEEP 1,-1.73 

BEEP .2,-1.7: BEEP 1,-1.7: BEEP 

.5,1.41 BEEP .5,.359: BEEP .5,.35 
3 BEEP .5,-1.723 BEEP 1,-1.7: BEE 

P .2,-1.71 BEEP 1,-1.7 

1840 BEEP .2,-23 BEEP .2,1:3 BEEP 
«5,121 BEEP .2,-13 BEEP .2,3: BE 

EP .5,3: BEEP .2,5:1 BEEP .2,5: B 

EEP .2,31 BEEP .2,5: BEEP .2,6:1 

BEEP .2,8: BEEP .6,10 

1850 GO TO 1750 

6000 REM de 4636 36 36 36-26 26 36 26 26 A 3 36 30 46 36 26 26 20 406 de 

6010 REM ENTRADA VALIDA 

6020 PRINT "0.K." 

6030 FOR n=i TO 61 BEEP .05,n1 N 

EXT n 

6040 RETURN 

7000 REM 436 46-36-3636 1-6 M1 0 16d M6 16 1016 HH E 

7005 REM INICIALIZACION 

7010 RANDOMIZE 

7020 PAPER 1: INK 63 BORDER 13 C 

Ls 

7030 DIM a(9,4):3 DIM n$(9,21): D 
IM 0$(18,21): DIM p$(9,21): DIM 

a$(21) 

7032 FOR i=1 TO 21: LET as$(i)=" 
“s NEXT i 


7035 LET ro=INT (RND*8)+2: REM H 

ABITACION DE SALIDA 

7036 REM ** GRAFICOS ++ 

7037 FOR j=144 TO 1613 FOR k=0 T 

O 7: READ iz POKE USR (CHR$ j)+k 
siz NEXT kz NEXT j 

7040 FOR j=1 TO 93 READ n$(3): N 
EXT j: REM NOMBRE DE LA HABITACI 

ON 

7050 FOR j=1 TO 18: READ o$(j): 
LET 0$(3j,20)=CHR$ 32: LET o$(3,2 
1)=CHR$ (143+j): NEXT j 

7071 LET mov=0 

7073 FOR j=1 TO 9: FOR k=1 TO 4: 
READ a(j,k): NEXT kz NEXT j 
7200 POKE 23609,35: POKE 23658,8 
8060 REM DISTRIBUCION DE OBJETOS 
8061 FOR j=18 TO 11 STEP -1 

8063 LET z=INT (RND*j)+1 

8065 LET m$=0$(z): LET o$(2)=0$( 
j): LET o$(j)=m$ 

8068 NEXT j 

8069 LET m$="": REM ESTE ES EL O 
BJETO QUE SE LLEVA 

8260 RETURN 

8290 REM ** DATOS *.e 

8300 DATA 0,16,40,72,8,8,62,28 
8310 DATA 12,30,127,255,255,254, 
124,56 

8320 DATA 0,0,62,127,127,62,28,8 
8330 DATA 24,24,72,62,9,24,36,34 
8340 DATA 0,127,65,34,34,20,8,28 
8350 DATA 128,64,32,16,10,4,10,1 
8360 DATA 0,24,60,650,66,66,66,60 
8370 DATA 62,62,62,62,28,8,8,28 
8380 DATA 0,0,255,255,255, 255, 12 
6,60 

8390 DATA 15,18,34,36,689,72,240, 
Lo) 


8400 DATA 24,24,24,24,24,24,24,2 
4 
8410 DATA 0,0,0,0,0,248, 234,0 
8420 DATA 72,18,128,56,24,24,24, 
24 
8430 DATA 63,65,253,133,133,1891, 
134,252 
8440 DATA 0,70,40, 145,86,88, 49, 1 
6 
8450 DATA 60,66, 129, 129,66,36,36 
,231 
8460 DATA 255,195,195,195,195,19 
5,195,255 
8470 DATA 0,0,16,40,68, 130,48,56 
9010 DATA "el almacen","el atico 
","el salon de marmol","la bibli 
oteca","el recibidor","el dormit 
orio","el estudio", "el taller de 
l artista","el cuarto de musica" 
9100 DATA " CANDELABRO ROTO","a 
PEPITA DE ORO","a ESMERALDA", "a 
ESTATUA DE BRONCE", "  CALIZ DE 
PLATA", "a ESPADA"," ANILLO MAGI 
CO","a COPA DE CRISTAL","a TAZA 
NEGRA” 
9110 DATA " PERGAMINO MISTICO", 
"a VARITA DE SAUCE"," RABO DE L 
AGARTIJA","a POCION DE CICUTA"," 
LIBRO DE CONJUROS", "a ACONITA 
NEGRA", "a HERRADURA"," ESPEJO M 


O 
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AGICO",”"  PENTAGONO" 
9200 DATA 0,0,2,0,0,6,0,1,0,9,7, 


E e 
2 REM +* + 
3 REM * LOS VIAJES DE + 
4 
Ss 


REM * MAGALLANES * 

REM + * 
ia 
10 REM 


20 GO SUB 4000: REM INICIALIZA 


40 LET t=INT (RND+*3) 

50 LET semanas=semanas+1 

60 LET comida=INT (comida-alim 
ento*hombres) 

70 IF comida<i THEN GO TO 280 

80 IF RND>.74 THEN LET hombre 
s=hombres-INT (RND+*3) 

90 POKE 23692,255: PRINT 2 PRI 
NT z$: PRINT 

100 IF t=0 THEN PRINT  INK 55" 
CAPITAN MAGALLANES, EL PROGRESO 
DE LA NAVE VICTORIA DURANTE LA 
SEMANA "3semanas;3" ES" 

110 IF t=1 THEN PRINT  INK 53" 
CAPITAN MAGALLANES, EL DIARIO DE 
A BORDO PARA LA SEMANA "3semanas 
3" ES” 

120 IF t=2 THEN PRINT  INK 53" 
INFORME DE LA SEMANA "3semanas 

130 IF puerto=1 OR puerto=9 THE 
N GO TO 540 

140 LET hombres=INT (ABS (hombr 
es)) 

150 PRINT 2: PRINT  INK 63 BRIGH 
T 13 INVERSE 13" ** TIENES "3hom 
bres; " HOMBRES +**": PAUSE 300 

150 IF hombres<10 THEN PRINT 
INK 63"No hay suficiente tripula 
cion para manejar el VICTORIA, 
por lo que deberemos quedarnos a 
ncladosen "ja$(puerto): GO TO 644 
o 

170 PRINT 2 PRINT z$3 PRINT 

180 LET t=INT (RND+*3.5) 

190 IF astro=0 OR cuadrantes=0 
THEN PRINT — INK 63"NO TIENES IN 
STRUMENTOS PARA PODER NAVEGA 
R!!!1"*>"ESTE ES EL FIiN......"2 P 
AUSE 250: GO TO 640 

200 IF t=0 THEN LET puerto=pue 
rto+1a PRINT 1 PRINT "Estamos en 
trando a puerto": PAUSE 300: GO 
SUB 3200: POKE 23492,2331 PRINT 
"Estas en "jaS(puerto) 

210 LET w=INT (RND*2) 

220 IF INT (comida/ (alimentorho 
mbres))<1 THEN GO TO 280 

230 IF t>0 THEN PRINT 2 PRINT 
"TENEMOS COMIDA PARA "3 INT (comi 
da/ (alimentor*+hombres))3"” SEMANAS 
“ 


240 IF t>0 AND w=1 THEN PRINT 
2 PRINT "Estamos navegando...."2 
PAUSE 300: GO SUB 3400 

230 IF t>0 AND w=0 THEN PRINT 


,2,0,0,5,5,0,8, 


2 PRINT "Nuestro viaje continua. 
..."3 PAUSE 300: GO SUB 3400 

260 IF hombres<10 THEN PRINT 
INK 63"No dispones de bastantes 
hombrespara manejar el VICTORIA, 
por lo que deberemos quedarnos a 
ncladosen "jaS(puerto): GO TO 64 
o 

270 IF comida>1 THEN GO TO 340 

280 PRINT 3 PRINT INK 63"LA CO 
MIDA SE HA TERMINADO"””: PAUSE 3 
00 

290 PRINT  INK 63"Todos tus hom 
bres han muerto,y tu tambien es 
tas moribundo...": PAUSE 300 

320 PRINT : PRINT "Es una lasti 
ma que todo haya terminado,a 
pesar de todos los articulos qu 
e hay en la borda para vender" 
2 GO TO 640 

340 POKE 23692,2551 PRINT 3 PRI 
NT "El tesoro tiene ";dinero3" d 
oblones" 

350 PRINT 3 PRINT "En el almace 
n hay "jcomida;5" sacos de”” "comi 
da y algunas hamburguesas, sufi 
cientes para "3INT (comida/(alim 
ento*hombres))3" semanas" 

370 PRINT 2 PRINT  INK 55"Opcio 
nes: ..» 

380 PRINT  INK 653"1.- INSPECCIO 
NAR BODEGA”” "2.- COMERCIAR CON L 
OS NATIVOS"” "3.- CONTINUAR NAVEG 
ANDO" 

400 IF INKEYS="" THEN GO TO 40 
o 


410 LET bS=INKEYS 

420 IF b$<"1” OR b8>"3" THEN 6 
O TO 400 

430 IF b$="1" THEN GO SUB 740 

440 IF b$="2" THEN GO SUB 940: 

GO SUB 3600: GO TO 30 

450 REM ** INCIDENTES+* 

460 GO SUB 3400: LET rn=INT (RN 
D+*11) 

470 IF rn=i THEN LET escorbuto 
=escorbuto+1: IF escorbuto=3 THE 
N GO SUB 2130 

480 IF rn=2 THEN LET naufragio 
=naufragio+1s IF naufragio=2 THE 
N GO SUB 2230 

490 IF rn=3 THEN LET motin=mot 
in+isz IF motin=2 THEN GO SUB 24 
20 

300 IF rn=4 THEN LET piratas=p 
iratas+la IF piratas=3 THEN GO 
SsuB 2600 

520 GO TO 30 

S3O REM 3024341026 3430-46 2-24 24 96 40-26 204 16 24 020 00d 

540 REM PUERTO DE ESPANA 

35590 IF puerto=9 THEN GO TO 610 
2 REM FIN DE VIAJE 

560 PRINT : PRINT "Empieza la a 
ventura.Salimos de Espana con u 
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na tripulacion de"”hombres;" val 
ientes hombres" 

3580 PAUSE 300: GO SUB 3600 

600 LET t=0: GO TO 200 

610 REM +** FIN DEL VIAJE** 

620 PAUSE 300: PAPER 4: INK O: 
BORDER 4: CLS 

$630 PRINT ">> BIEN HECHO, CAPITA 
N <<"”**"Conseguiste volver a Esp 
ana": 60 SUB 2900 

640 PRINT : PRINT "Has finaliza 
do el viaje con:"***dinero;" DOB 
LONES"*rollos;" ROLLOS DE TELA"” 
astro” ASTROLABIOS"”sal3" SACOS 

DE SAL"*hierro3" BARRAS DE HIER 
RO"”polvora;" BARRILES DE POLVOR 
A"”*cuadrantes;" CUADRANTES" 

690 PRINT 2 PRINT  INK 6;"TU PU 
NTUACION ES “5INT ((rollos+2*ast 
ro+sal+2*hierro+3*polvora+7*cuad 
rantes)*(semanas*hombres+dinero) 
/62) 

700 PRINT 2: PRINT  INK 553"El vi 
aje duro "3semanas;" semanas” 

720 INPUT "QUIERES VOLVER A JUG 
AR? (S/N)"358 

723 1F S$="S" THEN RUN 

727 STOP 

730 REM 3040-1364 34 34-14-44 30-00-0616 16 16-16-10 46-26-10 204010 

740 REM INSPECCIONAR BODEGA 

750 LET botin=0 

760 PRINT : PRINT "En la bodega 
hay1": PRINT 

770 1F rollos>0 THEN PRINT rol 
los;3" ROLLOS DE TELA("3rdinero*tr 
ollos3" DBLNS)"x LET botin=botin 
+rollos*rdinero 

780 IF astro>0 THEN PRINT astr 
03" ASTROLABIOS("3adinero*astro5 
" DBLNS)": LET botin=botin+astro 
*+adinero 

790 IF sal>0 THEN PRINT sal3" 
SACOS DE SAL ("3sdinero*sal3" DBL 
NS)"2 LET botin=botin+sal*sdiner 
o 

800 IF hierro>0 THEN PRINT hie 
rro" BARRAS DE HIERRO(";hierro* 
hdinero3" DBLNS)": LET botin=bot 
in+hierro*hdinero 

810 IF cuadrantes>0 THEN PRINT 

cuadrantes3" CUADRANTES ("3 cuadr 
antes*cdinero;" DBLNS)"z LET bot 
in=botin+cuadrantes*cdinero 

820 IF polvora>0 THEN PRINT po 
lvora3"” BARRILES DE POLVORA">"(" 
jpolvora*+pdinero;" DOBLONES)": L 
ET botin=botin+polvora*pdinero 

830 PRINT : PRINT "TOTAL = ";bo 
tin" DOBLONES" 

840 PRINT : PRINT 
nes:": PRINT 

850 PRINT  INK 65"1 - COMERCIAR 

CON NATIVOS"” "2 - CONTINUAR EL 
VIAJE" 

860 IF INKEY$="" THEN GO TO 86 
Lo] 

870 LET b$=INKEYS$ 

880 IF b$<"1" OR b$>"2" THEN 6G 
O TO 860 


INK 5;"Opcio 
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890 IF b$="1" THEN LET b$="2"2 
RETURN 

900 IF b$="2" THEN LET b$="3"3 
RETURN 

910 RETURN 


920 STOP 
Q30 REM 3430-30-63 34240 0 16 30-302 0d 40 10 10 0 
940 REM COMERCIO CON NATIVOS 
950 PRINT 2 PRINT z$1 PRINT 
960 PRINT — INK 33"Que articulos 
vendemos,capitan?" 
980 IF rollos>0 THEN PRINT "1- 
ROLLOS DE TELA" 
990 IF astro>»0 THEN PRINT "2- 
ASTROLABIOS" 
1000 IF sal>0 THEN PRINT "3- SA 
COS DE SAL" 
1010 IF hierro>0 THEN PRINT "4- 
BARRAS DE HIERRO” 
1020 IF polvora>0 THEN PRINT "5 
-— BARRILES DE POLVORA” 
1030 IF cuadrantes>0 THEN PRINT 
"£- CUADRANTES" 
1040 PRINT "7- COMPRAR A LOS NAT 


1050 PRINT "8- CONTINUAR EL VIAJ 


1060 PRINT : PRINT 2$: PRINT 
1070 IF INKEY$="" THEN GO TO 10 


1080 LET b$=INKEYS 

1090 IF bs$<"1" OR b$>"8” THEN G 
O TO 1070 

1095 IF b$="8" THEN RETURN 

1100 GO TO 1100+(VAL b$)*100 
1170 GO TO 1070 

1180 PAUSE 300 

1190 RETURN 

1200 REM ** VENDER TELA %%* 

1210 IF rollos<i THEN GO TO 118 
o 

1220 PRINT "Tenemos ";jrollosj" r 
ollos,que valen"*rdinero;" doblo 
nes cada uno" 

1230 LET precio=INT (rdinero*RND 
)3 IF precio<rdinero/2 THEN GO 
TO 1230 

1240 PRINT "Los nativos ofrecen 
"5precio;" doblones"” "por cada u 
no" 

1250 INPUT INK 45;"Cuantos desea 
s vender? "5k 

1250 IF k>rollos THEN GO TO 125 
o 

1270 LET dinero=dinero+k*precio 
1280 LET rollos=rollos-k 

1290 GO TO 95350 

1300 REM *s* VENDER ASTROLABIOS + 
» 

1310 IF astro<i THEN G0 TO 1180 
1320 PRINT "Tenemos ";zastro;" as 
trolabios,que"”"valen "jadinero5 
* doblones cada uno” 

1330 LET precio=INT (adinerowRND 
)a IF precio<adinero/2 THEN GO 
TO 1330 

1340 PRINT "Todo lo que los nati 
vos ofrecen es ";3precio;"” doblon 
es por cada uno" 


O 
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1350 INPUT INK 43"Cuantos desea 
s vender? "3k 

1360 IF k>astro THEN GO TO 13350 
1370 LET dinero=dinero+k*precio 
1380 LET astro=astro-k 

1390 GO TO 950 

1400 REM +*%s* VENDER SAL +. 

1410 IF sal<1 THEN GO TO 1180 
1420 PRINT "Tenemos ";sal;" saco 
s de sal,que"” "valen ";sdinero;" 
doblones cada uno” 

1430 LET precio=INT (sdinero+RND 
)3 IF precio<sdinero/2 THEN GO 
TO 1430 

1440 PRINT "La mejor oferta de 1 
os locales es ";precio;" doblon 
es por cada uno" 

1450 INPUT  INK 45"Cuantos desea 
s vender? ";k 

1460 IF k>sal THEN GO TO 1450 
1470 LET dinero=dinero+k*precio 
1480 LET sal=sal-k 

1490 GO TO 950 

1500 REM %*%* VENDER HIERRO +. 
1510 IF hierro<1 THEN GO TO 118 
o 

1520 PRINT "Tenemos ";jhierro3" b 
arras de hierro,que"” "valen "3hd 
inero;" doblones cada una" 

1530 LET precio=INT (hdinero*RND 
)3 IF precio<hdinero/2 THEN GO 
TO 1530 

1540 PRINT "La mejor oferta por 
el hierro es"3precio3" doblones 
por cada barra" 

1550 INPUT INK 43"Cuantas desea 
s vender? ";jk 

1560 IF k>hierro THEN GO TO 155 
o 

1570 LET dinero=dinero+k*precio 
1580 LET hierro=hierro-k 

1590 GO TO 950 

1600 REM ** VENDER POLVORA e. 
1610 IF polvora<1 THEN GO TO 11 


1520 PRINT "Tenemos "3polvora;" 
barriles de polvora, ”"” "que valen 
“s$pdinero;j" doblones cada uno" 
1630 LET precio=INT (pdinero*RND 
)3 1F precio<pdinero/2 THEN GO 

TO 1630 

15440 PRINT "Todo lo que ofrecen 

es "jprecio” "doblones por cada b 

arril" 

1650 INPUT INK 43"Cuantos desea 

s vender? ";3k 

1660 IF k>polvora THEN GO TO 16 

50 

1570 LET dinero=dinero+k*precio 
1580 LET polvora=pol vora-k 

1590 GO TO 950 

1700 REM %** VENDER CUADRANTES ex 

1710 IF cuadrantes<1 THEN GOD TO 
1180 

1720 PRINT "Tenemos ";cuadrantes 
3" cuadrantes,que valen"”*cdinero 

3" doblones cada uno" 

1730 LET precio=INT (cdinero*RND 

)3 IF precio<cdinero/2 THEN GO 


TO 1730 

1740 PRINT "Por los cuadrantes, ]l 

os indigenasofrecen "3precio;" 

oblones por cada uno" 

1750 INPUT  INK 45"Cuantos desea 

s vender? ";zk 

1760 1F k>cuadrantes THEN GO TO 
1750 

1770 LET dinero=dinero+k*precio 

1780 LET cuadrantes=cuadrantes-k 

1790 GO TO 950 

1800 REM ** COMPRAR A LOS NATIVO 

S *. 

1820 PRINT 2 PRINT z$3 PRINT 
1830 PRINT INK 63" >> TIENES 
“3dinero;" DOBLONES <<": PRINT 
2 PAUSE 300 
1840 PRINT 
frecen:">”” 

1850 LET bocado=9+INT (RND+7) 

1860 PRINT "1- COMIDA A "3bocado 

5” DBLNS POR SACO" 

1970 LET esclavo=30+INT (RND+*9) 

18980 PRINT "2- ESCLAVOS A "jescl 

avoj” DBLNS CADA UNO" 

1890 PRINT "3- CONTINUAR EL VIAJ 

Es 

1900 IF INKEYS=""" THEN GO TO 19 

00 

1910 LET b$=INKEYS 

1920 IF b$<"1" OR b$>"3" THEN 6 

O TO 1900 

1930 PRINT 1 PRINT z$1 PRINT 
1940 IF b$="3" THEN GO TO 1180 

1950 IF b$="2" THEN GO TO 2070 

2010 INPUT INK 4;5"Cuanta comida 
deseas? "jk 

2030 IF k*bocado>dinero THEN PR 
INT INK 5;"No tienes suficiente 
dinero": GO TO 2010 de 

2040 LET comida=comida+kz LET di 

nero=dinero-bocado*k 


INK 3;"Los nativos o 


2050 PRINT INK 63" >> TRANSACC 
ION COMPLETADA <<": PAUSE 3001 G 
O TO 1800 

2060 GO TO 1840 

2070 INPUT INK 45"Cuantos escla 


vos deseas? "jk 

2090 IF k*esclavo>dinero THEN P 

RINT— INK 6;"Va mas alla de tus 
posibilidades”: GO TO 2070 

2100 LET hombres=hombres+k: LET 
dinero=dinero-k*esclavo 

2110 PRINT "Los esclavos ya han 
sido sumadosa tu tripulacion": P 

AUSE 300: GO TO 1800 

2120 REM 16363646 16-36-3636 36-36 36 36d 36 36 dE HH 4 Hd 
2130 REM MUERTE POR ESCORBUTO 
2140 PRINT "DEBIDO A LA CARENCIA 
DE FRUTA FRESCA,EL ESCORBUTO 
SE HA APODE-RADO DEL VICTORIA... 


2160 PAUSE 300 

2170 LET k=hombres/3: LET k=INT 
(RND+*(k+1)) 

2180 PRINT 2 PRINT k;5" hombres h 
an muerto" 

2190 PAUSE 300 

2200 LET hombres=hombres-k 
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O: 20 5070. -80-:0-0.- 0 -0-270-.0-10 A 000.0 0 0.0 0-0 
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' dos,para que los 


2210 RETURN 

2220 REM 103414364 46-2630-10 34-36 26-10 36 0 AA E 0 10H 00 16 

2230 REM ++. NAUFRAGIO +. 

2240 PRINT "El barco esta zozobr 
ando en una fuerte tormenta...." 
”"Estas en peligro....” 

2260 PAUSE 300 

2270 IF RND>.8 THEN GO TO 2370 

2280 PRINT 3 PRINT INK 653"La to 

rmenta ha pasado, pero mucho 
s hombres y objetos han sido 

arrojados por la borda." 

2310 LET hombres=3*INT (hombres/ 

4)%1 LET rollos=5S*INT (rollos/6) 
2320 LET astro=7*INT (astro/8):2 

LET sal=3* INT (sal /4) 

2330 LET hierro=4*INT (hierro/5) 
1 LET polvora=5*INT (polvora/6) 
2340 LET cuadrantes=7*INT (cuadr 

antes/8) 

2350 PAUSE 300 

2360 RETURN 

2370 PRINT : PRINT "UNA GRAN OLA 
HA HUNDIDO EL BARCOY EL VICTORI 

A SE PRECIPITA AL FONDO DEL MA 
R" 

2390 PAUSE 300 

2400 GO TO 700 

2410 REM 6414 2600 6 M0 M6 26-16 6 26 0H 0 M6 0 0 
2420 REM +*%* MOTIN +. 

2430 PRINT 3 PRINT "Los hombres 
estan descontentos con tus dote 
s de mando, y se oyenrumores de m 
otin...." 

2460 PAUSE 300 

2470 IF RND>.8 THEN GO TO 2540 
2480 PRINT  INK 63"Sin embargo,t 
e has hecho con el control de la 
nave y has colgadoa dos amotina 

demas aprendi 

esen la leccion. El viaje cont 
inua apaciblemente." 

2520 PAUSE 300 

2530 RETURN 

2540 PRINT  INK 63"EL MOTIN HA T 

RIUNFADO, Y ERES ABANDONADO EN 
MEDIO DEL OCEANO EN UN PEQUENO 
BOTE...ES EL FIN" 

2570 PAUSE 300 

2580 GO TO 700 

2590 REM 106-1636 44 36-16 36-20 30-16-26 2636 40-20 02 20-20 40 16d 

2600 REM ** PIRATAS +. 

2610 PRINT ¿PRINT "POR ESTRIBOR 

APARECE UN BARCO PIRATA DE SOR 
DIDO ASPECTO...” 

2630 PAUSE 300 

2640 PRINT "Se acerca rapidament 

O...” 

2650 PAUSE 300 

2660 LET t=INT (RND+*3) 

2670 IF t=0 THEN GO TO 2740 

2680 IF t=1 THEN GO TO 2820 
2690 PRINT "Les ofreces comprar 

tu libertad,y ellos aceptan,llev 
andose todo el dinero y la polvo 

ra" 

2720 LET dinero=0: LET polvora=0 
2730 RETURN 


2740 PRINT INK 63"”"Los salvajes 


piratas abordan el barco,matando 
hombres a diestro y siniestro" 

2760 LET k=INT (RND*hombres+homb 

res/3) 

2770 PAUSE 300 

2780 PRINT INK 53k3” HOMBRES HA 

N MUERTO" 

2790 LET hombres=hombres-k 

2800 PAUSE 300 

2810 RETURN 

2820 PRINT  INK 6;"Eres afortuna 

do,pardiez....”"”"”!! LOS PIRATAS 

HAN ENCALLADO !!" 

2840 PAUSE 300 

2850 RETURN 

2900 REM 40606 616 06 06 6 16 46 M6 2 06 6H 2 6 0 

2910 REM MUSICA FIN DE VIAJE 

2920 BEEP .2,19: BEEP .2,19: BEE 

P .2,19: BEEP .5,19 

2930 BEEP .2,17: BEEP .2,16: BEE 

P .2,17: BEEP .4,19: BEEP .7,21:3 
PAUSE 10 

2940 BEEP .2,16: BEEP .2,16: BEE 

P .2,16: BEEP .4,16: PAUSE 10 

2950 BEEP .2,16: BEEP .2,16: BEE 

P .2,16: BEEP .2,16 

2960 BEEP .2,17: BEEP .2,14: BEE 

P.3,12 

2970 RETURN 

3000 REM 4646 46-16 36 34 34 36 16 10 36 40-46 36-40 26 10 36 dd 46d 

3010 REM GRAFICOS 

3020 BORDER 43 INK 32 PAPER 72 C 

Ls 

3030 FOR n=21 TO 15 STEP -12 PRI 

NT PAPER 53AT n,Ozr$2 NEXT n 

3040 PLOT INK 150,55: DRAW  INK 
13235,0 

3050 FOR nz=1 TO 151 LET d=INT (R 

ND*25)+81 LET x=INT (RND*225)1 L 

ET y=INT (RND*55)1 PLOT  INK 13x 


,y: DRAW  INK 13d,0: NEXT n 
3060 PRINT  INK 63AT 2,27;CHR$ 1 
44 


3070 RETURN 

3080 FOR n=13 TO 14: FOR m=28 TO 
313 PRINT PAPER 23 INK O3AT n, 

M3CHR$ 146: NEXT maz NEXT n 

3090 PRINT  INK O5AT 12,28;CHR$ 
145 

3100 RETURN 

3200 REM ENTRADA A PUERTO 

3205 IF RND<.3 THEN RETURN 

3210 GO SUB 3000 

3220 GO SUB 3080 

3230 LET o=INT (RND*4) 

3240 FOR n=0 TO 10 

3250 PRINT AT 13,n3x$3AT 14,n3y$ 

3260 BEEP .1,-60 

3270 PAUSE S 

3280 NEXT n 


3285 IF o0<>3 THEN PRINT  INK 03 
AT 13,14;CHR$ 147 
3290 IF o0=0 THEN PRINT  INK O5 


INVERSE 15AT 11,8;"ESPERO QUE"5A 

T 12,8;"HAYA CHICAS” 

3300 IF o=1 THEN PRINT  INK O; 

INVERSE 15AT 11,93"5 DIAS DE"5AT 
12,10; "PERMISO" 


3310 IF o=2 THEN PRINT  INK 05 
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INVERSE 15AT 11,83"QUE PUERTO"5A 
T 12,9;"ES ESTE?" 

3315 IF o0<>3 THEN PAUSE 100 
3320 PRINT AT 11,03w8S;3AT 12,0;w$ 
3330 FOR n=11 TO 222 PRINT AT 13 
»NIXS3AT 14,n3yS1 BEEP .1,-60: P 
AUSE 3: NEXT n 

3340 FOR nz=19 TO 39: BEEP .006,n 
2 NEXT n 

3350 PAUSE 50: BORDER Oz INK 7a 
PAPER O: CLS 

3360 RETURN 

3400 REM NAVEGANDO 

3405 IF RND<.3 THEN RETURN 

3410 GO SUB 3000 

3420 FOR n=26 TO 13 STEP -13 PRI 
NT AT 13,n3x83AT 14,n5y8S: BEEP . 
1,-601 PAUSE 3: NEXT n 

3430 LET o=INT (RND*6) 


3435 IF o<>5 THEN PRINT  INK 03 
AT 13,173CHRs 147 
3440 IF 0=0 THEN PRINT  INK 05 


INVERSE 153AT 11,133"ESTO YA"5AT 
12,13; "ABURRE" 

3450 IF ow=i THEN PRINT  INK 05 
INVERSE 1jAT 11,83"CON IBERIA YA 
"5AT 12,63 "HABRIAMOS LLEGADO" 
3460 IF o0=2 THEN PRINT  INK 05 
INVERSE 13AT 11,115"CUANDO DAN"5 
AT 12,12;5"LA PAGA?" 

3470 IF o0=3 THEN PRINT  INK 05 
INVERSE 1jAT 11,1153"PARECE QUE"3 
AT 12,103"VA A LLOVER” 

3475 IF 0=4 THEN PRINT  INK 05 
INVERSE 13AT 11,63"ME GUSTARIA Q 
UEJARME"5AT 12,103"AL CAPITAN" 
3477 1F o<>5 THEN PAUSE 100 
3480 PRINT AT 11,03rs$;AT 12,03r3$ 
3490 FOR n=12 TO O STEP -1:2 PRIN 
T AT 13,n5x8;5AT 14,n3yS1: BEEP .1 
»-60: PAUSE 53 NEXT n 

3495 PAUSE 20: INK 73 PAPER Oz B 
ORDER Oz CLS 

33500 RETURN 

3600 REM SALIDA DE PUERTO 

3605 IF RND<.3 THEN RETURN 

3610 GO SUB 3000 

3620 GO SUB 3080 

3630 LET o=INT (RND*4) 

3640 FOR n=22 TO 10 STEP -1:3 PRI 
NT AT 13,n3x85AT 14,n3y8: BEEP . 
1,-60:3 PAUSE 3: NEXT n 


3650 IF o<>3 THEN PRINT  INK 05 
AT 13,143CHRs 147 
3660 IF o0=0 THEN PRINT  INK 05 


INVERSE 1j3AT 11,103"ME VOY"5AT 1 

2,73"PERO VOLVERE" 

3670 IF o=1 THEN PRINT  INK 05 
INVERSE 153AT 11,95"CUANDO UN”5AT 
12,7;3"AMIGO SE VA.." 

3680 IF o=2 THEN PRINT  INK 05 
INVERSE 153AT 10,85"COMO?NO HAY";5 

AT 11,93"CAMAROTES"3AT 12,83"DE 

PRIMERA?" 

3690 IF o<>3 THEN PAUSE 100 

3700 PRINT AT 10,03wS3AT 11,03w8 
¿AT 12,03w8 

3710 FOR n=10 TO O STEP -11 PRIN 
T AT 13,n3x85AT 14,n53y8: BEEP .1 


»-60: PAUSE 32 NEXT n 
3715 PAUSE 20: INK 72 PAPER O: B 
ORDER Oz CLS 
3720 RETURN 
4000 REM 304364626 1661 6 M6 6 6 HEM IM A 2d 
4010 REM INICIALIZACION 
4020 INK 71 PAPER Oz BORDER O3 C 
Ls 
4030 RANDOMIZE 
4040 DIM as$ (9,20) 
4050 LET hombres=100+INT (RND*3O 
) 
4060 LET dinero=200+INT (RND*S50) 
4070 LET comida=100+INT (RND+*30) 
4080 LET alimento=.02+INT (RND+*+1 
0)/100 
4090 IF comida/ (alimento*hombres 
)>11 THEN (GO TO 4050 
4100 LET rollos=100+INT (RND*30) 
: REM ROLLOS DE TELA 
4110 LET rdinero=5+INT (RND+*S5): 
REM VALOR DE CADA ROLLO 
4120 LET astro=15+INT (RND*5): R 
EM ASTROLABIOS 
4130 LET adinero=20+INT (RND*S): 
REM VALOR DE CADA ASTROLABIO 
4140 LET sal=50+INT (RND*7): REM 
SACOS DE SAL 
4150 LET sdinero=7+INT (RND+*4):3 
REM VALOR DE CADA SACO 
4160 LET hierro=30+INT (RND+*8): 
REM BARRAS DE HIERRO ; 
4170 LET hdinero=5+INT (RND*3) +: 
REM VALOR DE CADA BARRA 
4180 LET polvora=3+INT (RND+*2) 
4190 LET pdinero=90+INT (RND+*20) 
4200 LET cuadrantes=10+INT (RND+* 
4) 
4210 LET cdinero=30+INT (RND*5) 
4220 LET semanas=0 
4230 LET puerto=1 
4240 LET escorbuto=0 
4250 LET naufragio=0 
4260 LET motin=0 
4270 LET piratas=0 
4280 FOR j=2 TO 8 
4290 READ as (j) 
4300 NEXT j 
4310 REM +** G DU +. 
4320 FOR j=1 TO 10: READ j$2 FOR 
k=0 TO 73 READ pz POKE USR j$+k 
»ps NEXT kz NEXT j 
4330 LET z$=CHR$ 16+CHRS$ 2+"+:..w 
UM 06 26 0 0 00 6 DIA 
4340 LET rs$=" 
"3 LET w$=" 


4350 LET x$=CHRS$ 32+CHR8 32+CHRS 
152+CHRS$ 153+CHR$ 32+CHRS$ 32 

4360 LET y$=CHR$ 32+CHR$ 148+CHR 

$ 149+CHR$ 150+CHR$S 151+CHR$ 32 

4370 POKE 23609,25 

4380 RETURN 

5000 REM 3636463646 36-36 6-16 3 36-36 HSA DEIA dE 

5010 REM DATOS 

5020 DATA "las islas Canarias"," 

las islas Cabo Verde”,"el cabo S 

an Agustin","Rio de Janeiro" 

5030 DATA "el rio Santa Cruz","”l 


OO OOOO OOOOoOos< 0os0oOs.0uo. Q. COooOoOoOo OA OA OomOo 


5 


a Tierra del Fuego","la isla de 

Mactan" 

5040 DATA "a",60,126,255,255, 255 
,255,126,60 

5050 DATA "b",0,124,254,254,126, 
30,30,30 

S060 DATA "c",255,129,129,129,12 
9,129,129,255 

5070 DATA "d",254,252,248,240,22 
4,192,128,0 
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5080 DATA "e",0,255,15,7,7,3,3,1 
5090 DATA "4",2,194,226,255,255, 
221,255,255 

5100 DATA "g",16,16,17,255,2355,2 
21,255,255 

5110 DATA "h",127,255,255,255,25 
4,254,252,248 

5120 DATA "i",0,0,2,2,2,2,2,2 
5130 DATA "j",0,0,16,16,16,16,16 
,16 
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Adaptación del BASIC de 
Microsoft al Amstrad 


En este apartado se pretende ayudar al lector a realizar los cambios 
necesarios en los programas escritos en el BASIC de Microsoft para poder 
introducirlos y ejecutarlos en un ordenador Amstrad. 

En particular, los programas de este libro están escritos en un BASIC 
muy general, buscando que los cambios de código necesarios para realizar 
la adaptación sean mínimos. Esto se ha conseguido gracias a la ausencia 
de gráficos, colores y sonidos en los programas, pues es en este tipo de 
sentencias en las que aparecen mayores diferencias tanto morfológicas 
como sintácticas en los comandos de cada ordenador. 

A continuación se expone una tabla con las sentencias que presentan 
mayores diferencias a la hora de realizar la adaptación. Las sentencias de 
sonido y colores se expondrán con más detalle posteriormente. 


BASIC Microsoft BASIC Amstrad Utilidad 


COLOR texto, fon- Se utilizan 4 senten- 


do, borde cias 
PAPER (num) Cambia color papel 
PEN (num) Cambia color texto 
BORDER (num) Cambia color borde 
INK (num, num) Cambia color tinta 
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BASIC Microsoft 


BASIC Amstrad 


Utilidad 


DRAW “coord X, 
coord Y” 


INPUTS (longitud, 
$ cauce) 


LINE (X,Y)-X1, 
X2),color 


LLIST 


LPOS (num) 


MKI1$ (num) 
MK$ (num) 


OPEN “nomfich” 


PAD (entero) 


PLAY “cadena”,ídem 
2.2 canal.ídem 3. ca- 
nal 


POINT (X,Y) 


DRAW X,Y 


DRAWR X,Y 


INPUT cauce,“ca- 
dena”:;variables alfa- 
numéricas 


DRAW X,Y color 
DRAWR X,Y color 


LIST 48 


POS(+ 8) 
VPOS(+ 8) 


STR$ (num) 


OPENIN “nomfich” 


OPENOUT 
“nomfich” 


JOY (entero) 


SOUND lista de va- 
riables 


TEST (X.Y) 
TESTR (X,Y) 


Dibuja una línea entre dos 
coordenadas. 


Se diferencia del anterior 
en que las coordenadas 
son relativas a la posición 
del cursor. 


Lectura de una cadena 
por el cauce indicado. 


Escribe una línea entre 
dos puntos; el inicial es la 
posición del cursor en 
DRAWR. 


Listado de un programa o 
líneas de éste por impre- 
sora. 


Posición del carro de la 
Impresora. 


Idem, pero en dirección 
vertical. 


Convierte de número a 
carácter según el código 
ASCII. 


Abre fichero para lectura 
del cassette. 


Abre fichero para escritura 
en cassette. 


Informa del estado del 
paddle (4 direcciones) 


Orden para generar mú- 
sica. 


Da información sobre el 
color de un punto en pan- 
talla por las coordenadas 
referidas a una esquina de 
la pantalla (TEST) o a la 
posición del cursor. 


BASIC Microsoft 


POS (num) 


PSET (X,Y),color 


PRESET (X,Y),color 


RND (-TIME) 


SCREEN 00 1 o 2 


SPC (entero) 


STICK (entero) 


BASIC Amstrad 


POS +40 
VPOS +40 


PLOT X,Y. color 


PLOTR X,Y,color 


PLOT X,Y color 
PLOTR X,Y color 


RANDOMIZE 
TIME RND (X) 


MODE 16260 


SPACES (entero) 


JOY (entero) 


Utilidad 


Posición del cursor de tex- 
to en la pantalla. 


Pinta un punto en panta- 
lla del color especificado, 
en la posición referida a la 
esquina inferior izquierda. 


Idem, pero referidas las 
coordenadas a la posición 
del cursor. 


Devuelve el punto especifi- 
cado a su color inicial. Pa- 
ra PLOTR es igual, pero 
con coordenadas relativas. 


Calcula un valor entre 0 y 
1 aleatoriamente en fun- 
ción del reloj del ordena- 
dor. 


Cambia el modo de pan- 
talla: O=Baja resolución. 
2 = Alta resolución. 


Genera una cadena de es- 
pacios según el número 
especificado. 


Informa del estado del 
joystick según las 8 direc- 
ciones y el botón de dis- 
paro. 


Veamos ahora con mayor detalle las órdenes referentes a colores y 
sonido para ambos lenguajes BASIC: 


—Sonido BASIC Microsoft: 


Las órdenes que se utilizan son PLAY y SOUND. La instrucción 
PLAY nos permite el uso del sintetizador; la sentencia consta de la 
palabra PLAY seguida de una cadena entre comillas que consta de una 
combinación de letras (O, T, L, S, M, R, V) y dígitos. 
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Las letras indican: 
O Octava: varía de 0 a 8 
Ej.: 10 PLAY “Ol” 


T Ritmo: fija el ritmo. Los valores de T pueden variar desde 32 (el más 
lento) hasta 255 (el más rápido). 


EJ 10 PLAY “T3201” 


L Duración: Este submandato hace que una nota tenga una duración 
variable. Toma valores entre 1 (el más largo) y 64 (el más corto). 


ENS 10 PLAY “T3201CDLI1E” 


S Forma: Este submandato controla la forma de la envolvente de volumen; 
puede variar entre 1 y 15. 


Bj: 10 PLAY “S104CDE” 


M Período: Este submandato controla el período de la envolvente del tono; 
puede variar entre 1 y 65535. 


Bj. 10 PLAY “S10M500004CDE” 


R Pausa: Provoca una pausa entre dos notas; toma valores entre 1 (gran 
pausa) y 64 (pausa pequeña). 


Ej: 10 PLAY “O4CRIDRIOE” 


V Volumen: Fija el volumen del sonido que se produce; puede variar 
entre 1 y 15. 


EJ: 10 PLAY “O4V5CV10DVI15E” 
La orden SOUND permite controlar directamente las diferentes posibi- 
lidades del generador de sonido o PSG (Programmable Sound Generator). 
Una sentencia SOUND toma la forma: 


SOUND n.” de registro, valor 


El registro es uno de los 13 siguientes y el valor puede variar entre 1 y 
23d: 


Registros Función 


0-5 Programa el tono de los tres canales. 
6 Idem de ruido. 
7 Activa tono y/o ruido en el canal determinado. 
8-10 Corresponde a la amplitud de la envolvente (un 
registro por canal). 
11-13 Programa las formas de la envolvente. 


Como veremos a continuación, estas órdenes difieren sustancialmente 
de las relativas al Amstrad; valga lo anterior como orientación de lo que 
realiza un ordenador con el BASIC de Microsoft, para intentar realizar lo 
mismo con órdenes específicas del Amstrad. 

Las órdenes que utiliza el Amstrad para generar sonidos son: SOUND, 
ENV, ENT, que están extensamente explicadas en el manual del ordena- 
dor; no obstante, espero que el resumen siguiente sirva para ilustrar 
algunas ideas básicas sobre la utilización de estas Órdenes, en los progra- 
mas que añadimos a los del libro para hacerlos más vistosos en el 
Amstrad. 


— Orden SOUND: 
Forma de una sentencia SOUND: SOUND G,H,IJ,K,L,M 


G Estado del canal. Viene dado por un número entero de valor entre 1 
y 255; este número especifica qué canal o canales (de los tres posibles, 
A, Bo C) quedará en activo. 

H Período del tono. Queda determinado por la frecuencia; su valor 
puede estar entre O y 4095. El valor O no genera sonido, sino un 
silencio. 

I Duración del sonido según múltiplos de un tiempo mínimo de centé- 
simas de segundo. Puede variar entre — 32768 y +32767. Toma por 
defecto el valor 20. 

K  Envolvente de volumen. El valor se corresponde con una envolvente 
de volumen (ENV) previamente definida. Toma valores en el rango de 
0 a 15 y, si se omite, asigna el valor 0. 

J Volumen. Este parámetro fija el volumen inicial del sonido, que puede 
ser modificado por la sentencia ENV. Toma valores entre 0 y 7 (0 a 
15 si se utiliza una sentencia ENV). 

L  Envolvente de tono. El valor que toma especifica una sentencia ENT 
predefinida. Puede tomar valores entre O y 15. 

M Período de ruido. Corresponde al ruido que se añade al sonido 
generado por la orden. Toma valores entre O y 15. 
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— Orden ENV: 


La envolvente de volumen es una sentencia que modifica el volumen de 
la señal generada por SOUND; la forma de la sentencia es: 


ENV N;A,B,C 


N Número de la envolvente. Es obligatorio su uso, ya que en una 
sentencia SOUND viene especificada la envolvente de volumen desea- 
da. Toma valores entre 1 y $. 

A Cuenta de pasos. Es el número de escalones que tendrá la envolvente 
de volumen, de modo que el volumen del sonido crezca o decrezca con 
mayor o menor velocidad; puede tomar valores entre 0 y 127. 
Altura del paso. Da información sobre lo que aumentará o disminuirá 
el volumen en cada escalón. Rango de valores: —128 a +127. 

C Tiempo del paso. Es el tiempo medido en centésimas de segundo que 
tendrá cada escalón; rango de valores: O a 255. 


— Orden ENT: 


La orden de envolvente de tono es análoga a la anterior, aunque, claro 
está, lo que se varía es el tono del sonido generado. Forma de una 
sentencia ENT: ENT N;A,B,C. Los parámetros son, como en el caso 
anterior: 


N Número de la envolvente de tono. Rango de valores de 1 a 15. 
A Número de pasos. Toma valores entre O y 239. 

B Altura del escalón. Rango: —128 a +127. 

C. Tiempo del escalón. Rango: 0 a 255. 


Algunos ejemplos de sonidos que podrás introducir en los programas 
pueden ser los siguientes: 


—El siguiente programa reproduce en la octava “0” del ordenador 
una escala de notas: 


10 REM OCTAVA O 

20 DATA 478,451,426,402,379,358,338,319,301,284,268,253 
30  RESTORE: REM inicializar datos 

40 FOR T=1 TO 12:READ PERIODTONO 

50 FOR CANAL=2 TO 4 STEP 2 

60 SOUND CANAL,PERIODTONO,100,4,0,0,0 

70 NEXT CANAL 

80 NEXT T 


En este programa no se modifican ni el volumen ni el tono del sonido; 
cada vez que realiza un bucle cambia el valor del período del tono, pero el 
canal de salida cambia alternativamente del A al B. 


— Programa que simula un disparo espacial: 


10 SOUND 129,50,40,15,0,1 
15 ENT 1,100,10,1 


o bien: 


10 SOUND 1,30,10,15,1,1 


Otro ejemplo es: 


10 FOR N=1000 TO 50 STEP —50 
20 SOUND 1,N,55,15 
30 NEXT 


o bien: 


100 ENV 1,20,10,12 
110 SOUND 1,95,190,1,1 


Todos estos ejemplos puedes introducirlos en los programas sin más 
que cambiar la numeración para que se ejecuten en el momento y lugar del 
programa deseado. 

En cuanto a los colores del Amstrad, aquí tienes un resumen de las 
órdenes esenciales: 


BORDER: Cambia el color del borde de la pantalla; puedes cambiar a un 
color determinado, o que cambie alternativamente entre dos colores. 
Por ejemplo, para que cambie entre los colores negro y blanco: 

10 BORDER 0,26 


Estos números se corresponden en el rango 0-26 con los 27 colores 
posibles. 


PAPER: Cambia el color del fondo. 
PEN: Cambia el color del texto. 
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Para las dos órdenes anteriores hemos de tener en cuenta el modo de 
pantalla en que nos encontramos, ya que cada una nos limita el número 
de colores que podemos utilizar. En el modo 2 sólo podemos utilizar 2 de 
los 27 colores de la paleta, en modo 1 sólo 4 y en modo O podemos 
utilizar 16 colores diferentes. 

Inicialmente, el ordenador establece cuáles son los colores que pode- 
mos utilizar en cada modo, pero mediante la orden INK podemos utilizar 
otros colores. Por ejemplo, en modo 2 sólo está permitido utilizar 2 
colores, que inicialmente son el 1 (azul) y el 24 (amarillo brillante); pode- 
mos cambiarlos mediante la orden INK: 


10 MODE 2 
20 INK 0,9: PAPER O 
30 INK 1,15: PEN 1 


Ejecuta el programa y verás cómo el fondo será verde y el texto 
naranja. Análogamente se realizaría en los otros modos. 

El ejemplo siguiente cambia el color de la tinta de un texto en modo 1; 
por tanto, sólo puede cambiar entre los 4 colores existentes: 


10 MODE 1 

20 INK 0,9: INK 1,14: INK 2,15: INK 3,3: REM define que los 4 colores de 
modo 1 sean: verde, azul pastel, naranja, rojo 

30 FOR N=1 TO 40 

40 LOCATE 17,15: REM posiciona el cursor en el centro de la pantalla 
50 PRINT “AMSTRAD” 

60 FOR J=1 TO 200: NEXT: REM bucle de retardo 

70 NEXT: END 


Este ejemplo puedes introducirlo en cualquier parte de un programa 
cambiando la numeración, el texto, etc. 

Cuando realices la adaptación al Amstrad debes tener en cuenta el 
modo de pantalla en que se ejecute, pues las salidas realizadas con un 
PRINT y el centrado de líneas en pantalla se modificarán al variar el 
número de columnas de la misma. 

Cabe resaltar de forma especial que en un ordenador Amstrad puedes 
dar a las variables nombres de hasta 40 caracteres, siendo todos ellos 
significativos; ello quiere decir que dos variables que difieran exclusiva- 
mente en el carácter 39 serían distintas para el ordenador. Por ello es 
recomendable, al adaptar los programas, que cambies los nombres de 
variables por otros que te den información de lo que contienen: VL por 
velocidad, etc. Normalmente, el BASIC sólo acepta como significativos los 
dos primeros caracteres de la variable, lo que, como habrás observado, 
obliga a utilizar variables que dicen poco de su contenido. 


Por otro lado, en los bucles FOR... NEXT del Amstrad no es necesa- 
rio poner la variable después del NEXT, aunque es recomendable para una 
mayor claridad en los programas. Esto es posible porque el ordenador, al 
encontrar un NEXT, lo asigna al último FOR aparecido en el programa. 

Para generar un número aleatorio se utiliza la orden RND, por ejem- 
plo, X= RND(1). En este caso, la variable X tomará un valor aleatorio 
entre O y 1. Si queremos que el número aleatorio sea tomado en función 
de una secuencia del reloj interno del ordenador, debemos poner: 


10 RANDOMIZE TIME 
20 X= RND(1) 


Esto es equivalente al RND (—TIME) del BASIC de Microsoft. 

Para realizar una salida con video inverso, dentro del PRINT o del 
INPUT, el carácter o caracteres que queramos poner en video inverso, 
deberá ir en medio de los caracteres X (CTRL + X). 


Ej: 10 PRINT “ video inverso de a : XaX ” 


Aparecerá en pantalla la letra “a” en video inverso. Esto es especial- 
mente útil para resaltar la letra que se debe pulsar en un lugar de la 
ejecución del programa, según lo que se quiera que haga. La siguiente 
rutina te permite volver a ejecutar el programa; para ello, durante todo el 
programa, donde aparezca un END debes cambiarlo por GOTO 7000 (o 
el número de línea de comienzo del siguiente programa): 


7000 REM volver a ejecutar 

7010 PRINT “Quieres volver a ejecutar el programa ? (S/N)” 

7020 IF INKEY (60) =0 THEN RUN: REM si es S volvemos a ejecutar el 
programa 

7030 IF INKEY (46) =0 THEN CLS: END: REM si es N termina el programa 
7040 GOTO 7020 


Para utilizar video inverso podemos cambiar la línea 7010 por 


7010 PRINT “Quieres volver a ejecutar el programa?”: 
PRINT ” XSX/X NX 


Donde, como ya hemos dicho, el carácter X se realiza pulsando simul- 
táneamente las teclas CTRL+X. 

En los programas de este libro hay que realizar pocos cambios para 
ejecutarlos en un Amstrad. 

Al introducir el programa no es necesario poner la variable a la que va 
asociada un NEXT, aunque esto implica una menor claridad del programa 
al mirar lo que hace. 
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O 70.0 4-00. 0.50 0: 0: 0-00 .0.0000 0 0.0 0. 0 


O 


O 


10 REM ERRE RARA 
20 REM + + 
30 REM + BASE ESPACIAL 2606 +* 
40 REM + 4 
50 REM JARED RRA A 
50 REM 


76 GOSUB 2880 :REM **+* INICIALIZACION + 
+ 

86 GOSUB 2406:REM +** NOMBRE DEL CUADRANT 
E +E* 

94 1F accidentecó AND RND(1)<8,15 THEN 
605UB 2078 

100 GOSUB 584: REM +++ CONDICION DE LA NA 
VE £e+ 

110 GOSUB 760:REN +++ INFORMACION DE FRO 
XIMIDAD +%e 

120 GOSUB 1150:REM +** ENTRADA DE MOVIMI 
ENTO +4 

130 1F B9="N" OR B$="n" THEN 170 

140 GOSUB 240:REN +** NOMBRE DEL CUADRAN 
TE + 

156 GOSUR 584: REM +ee CONDICION DE LA NA 
VE $e 

160 GOSUE 760:REM +** INFORMACION DE PRO 
FIMIDAD +++ 

17% GOSUB 1400:REM +** COMANDO DE DISFAR 
O +ex 

190 GOSUB SB0:REM *** CONDICION DE LA Na 
VE 4 

196 GOSUE 1678:REM +ex FUEGO INVASOR +*4 


200 DIAS=DIAS+ 

210 Es="" 

220 60T0 80 

TO REN AAA A 
240 REM +*+* MOMBRE DEL CUADRANTE +%+ 
250 CLS:PRINT:+PRINT 

260 PRINT ":::: ESTAS EN EL SECTOR *: 


270 P=INT(S1/4+0.5) 
290 O=1NT(S2/2+0.5) 
290 IF P<1 THEN P=1 
360 IF 0x1 THEN 0=1 
310 1F P>8 THEN P=8 
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26 1F 0>8 TREN 0=8 
30 1F F>4 THEN 436 
46 1F 0=1 THEN PRINT 
6 IF Q=2 THEN PRINT 
2 1F 0=3 THEN FRINT 
370 1F 0=4 THEN FRINT 
IF 0=3 THEN PRINT 
0 IF 0=6 THEN PRINT 
400 1F 0=7? THEN FRINT 
414 1F 0=8 THEN PRINT 
420 6010 510 

434 1F O=1 THEN PRINT 
440 1F 0=2 THEN FRINT 
456 IF 0=3 THEN FRINT 
458 1F 0=4 THEN PRINT 
476 1F 0=5 THEN PRINT 
490 IF 0=6 THEN PRINT 
496 IF 0=7 THEN PRINT "SAGITARIO" 

300 IF 0=8 THEN FRINT “CISNE” 

10 PRINT "Sp oooosios=oies in cót==> 


520 PRINT "FECHA DEL DIARIO DE A BORDO: " 

DIAS, "NAVES ENEMIGAS ALCANZADAS: *AK 

530 PRINT oo oo=--- 

544 PRINT "*Y* TUS COORDENADAS GALACTICA 

5:"81352 

550 PRINT Mo 

560 RETURN 

70 REM EXHEEAAAA RANA AENA E LARA 

580 REM eee ESTADO DE LA NAVE we 

590 PRINT TAB (12) “e ENERGIA TOTAL : * 

ENERGIA 

560 1F ENERGIADI THEN 650 

610 PRINT:PRINT:PRINT "HAS AGOTADO TUS 8 

ANCOS DE ENERGIA * 

620 PRINT:FRINT “TU VIAJE HA TERMINADO * 

630 PRINT:FRINT “HAS SOBREVIVIDO DURANTE 
“¿ DIAS-1000; "DIAS" 

540 PRINT:PRINT “RAS DESTRUIDO "Ak" NAVE 

5 INVASORAS “:GOTO 2016 

650 IF ENERGIA)SO THEN 730 

650 FOR H=1 TO 3 


"PEGASO" 
"ACUARIO" 
"ERIDANO" 
"HIADAS" 
"CAN MAYOR" 
"0SA MAYOR" 
"HERCULES" 
"CEFEO" 


"DORADO" 
"TRIANGULO" 
*AURIGA” 
"NUBECULA NAYDR* 
"ESCORPI0" 
"CUERVO" 


o0ú0Uu0 0. 0 € 0 O OO O O OOO O Oo Oo 


o. o 


o.0 O 


O 


000. OO OOOO OOOO O O OA OO OOO.O0O.O0O0O 0 OO OomOo 


570 SOUND 1,160,25,4 : SOUND 1,50,25,4 : 
SOUND 1,109,25,4 

680 PRINT TAR(H*3);") PELIGRO ! <" 

696 NEXT 

700 PRINI "RESERVAS DE ENERGIA :*BAJAS*" 
710 PRINT<FRINT TAB (5);"TIENES QUE ENCO 
NTRAR PRONTO " 
720 PRINT TAB (10);"UNA BASE ESPACIAL * 
730 FOR T=1 10 2000: NEXT 

746 RETURN 

750 REM PEER RAR DARA 

760 REM aer RADAR $44 

770 P=200:A1=200:AB=200:PROX=0 

780 PRINT:FRINT "QUIERES UTILIZAR TU RAD 
AR E(S/N)";:REN Pulsa CTRL+x en vez del 
caracter € para video inverso 

799 INPUT C$ 

800 1F C$:>"N" AND C$<>"n" AND C$<>"S" 
AND C$<>"s* THEN 790 

810 IF C$="N" OR C$="n” THEN RETURN 

820 ENERGIA=ENERGIA-9, 25 

834 PRINT "> ATENTO AL RADAR ... * 

840 X1=S1-4: X2=52+4: Y1=S2-2: Y2=52+2 
850 IF X1<1 THEN Xi=1 

950 IF X1>32 THEN X1=32 

876 IF Y1C1 THEN Yi=1 

880 1F Y1>14 THEN Yi=16 

994 1F X2<1 THEN X2=1 

900 1F X2>32 THEN X2=32 

416 IF Y2<1 THEN Y2=1 

920 IF Y2>16 THEN Y2=16 

930 FOR X=X1 TO X2 

940 PRINT ">"; 

956 FOR Y=Y1 TO Y2 

950 P=S0R((X-51)+(X-51)+1Y-52)*(Y-52)) 
97% P=INT (P+1000)/1000 

980 IF A(X,Y)=NA OR A(X,Y)=0 THEN 1020 
994 1F A(X,Y)=TA THEN PROX=P:PRINT "...B 
ASE ESPACIAL 2000 LOCALIZADA !,..*; 

1940 1F A(X,Y)=AL AND P<AL THEN Al=F:PRI 
NT "M"3:6H=X:6J=Y 

1010 IF A(X,Y)=SB AND P<AR THEN AB=P:PRI 
NT "B"; 

1020 NEXT 


1030 NEXT 
1049 1F A1<>2008 THEN PRINT:FRINT:PRINT * 
NAVE ENEMIGA MAS CERCANA” 
1050 1F A1<>204 THEN PRINT "LECTURA DEL 
RADAR : "Al 
1060 IF AR<>200 THEN PRINT:FRINT "BASE E 
SPACIAL MAS CERCANA” 
1078 1F AR<>266 THEN FRINT "LECTURA DEL 
RADAR : "AB 
1080 IF PROX<>0 THEN PRINT:FRINT "FROXIM 
IDAD DE LA BASE ESPACIAL 2606: "PROX 
1090 IF PROX<>9 THEN FRINT TAB (8)" ESTA 
DENTRO DEL ALCANCE" 
1160 IF PROX=0 TREN PRINT:+PRINT "LARGO A 
LCANCE FIJADO” 
1116 FRINT "PARA LA BASE ESPACIAL 2048:” 
; 100+(S1-B1)+(52-B2) 
1126 FOR T=1 TO 2000:NEXT 
1130 RETURN 
1140 REM ARLAREERAAE ARALAR PARRA RARA 
1150 REM +e* ENTRADA DEL MOVIMIENTO *+* 
1160 PRINT+FRINT ""TUS* COORDENADAS GALA 
CTICAS :"S51;52 
1170 PRINT:PRINT "QUIERES MOVER LA NAVE 
8(S/N)8"5:REM Pulsa CTRL+x donde los 
caracteres f para video inverso 
1180 INPUT B$ 
1170 1F ES(5"N" AND B$<>"n" AND BSi>"S" 
AND B$<>"s" THEN 1180 
1200 IF B$="N" OR E$="n” THEN RETURN 
1210 ENERGIA=ENERGIA-2,723 
1220 PRINT TAB(6); "EN QUE DIRECCION 
£(N,5,E,0)8";:REN Pulsa CTRL+x donde los 
caracteres € para video inverso 
1230 INPUT A$ 
1240 IF A$<7"N" AND A$C7"n" AND A$O*S” 
AND A$6>"s" AND ASC)"E" AND A$<>"e" AND 
A$<>"0" AND A$X>"0” THEN 1230 
1230 IF A$="N" OR A$="n" AND S1=1 THEN 
RETURN 
1240 A(51,52)=NA 
270 1F A$="0" OR A$="0" AND S2=1 THEN 
RETURN 
1299 IF A$="E" OR A$="e" AND S2=16 THEN 
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RETURN 
1290 A(S1,52)=0 
1300 1F A$="0" OR Af="0" THEN Si 
1310 1F A$="E" OR A$="e" THEN Si 
1328 IF A$="5" OR A$="s" THEN S2=52-1 
1330 1F A$="N" OR A$="n" THEN S2=52+1 
1349 IF A(51,52)=AL THEN PRINT "TE HAS P 
OSADO EN UNA NAVE ENEMIGA !'!":ENERGIA=A: 
FOR T=1 TO 20008: NEXT: RETURN 
1350 1F A4(51,52)=SB THEN FRINT "HAS ENTR 
ADO EN UNA BASE ESPACIAL ":ENERGIA=ENERG 
14+55 
1360 1F S1=B1 AND S2=B2 THEN 1950: REM +* 
* ENCUENTRO DE LA BASE ESPACIAL ex 
1378 FOR T=1 TO 1006:NEXT 
1380 RETURN 
1390 REN LLERAEA ELA RA ARA RARA REA 
1400 REN +e* MANDO DE DISPARO *t* 
1410 PRINT:FRINT "DUIERES DISPARAR FOTON 
ES 0(5/N)8"5:REM Pulsa CTRL+x en vez 
pe los caracteres B, para video inverso 
420 INPUT AS 
pe IF A$<>"5" AND A$C>"S" AND ASC ON" 
AND A$C3"n” THEN 1420 
1440 1F A$="N" OR A$="n" THEN RETURN 
1450 PRINT TAB(7);"CON GUE INTENSIDAD 
8(2 A 8)8";:FREM Fulea CIRL+x en vez de 
los caracteres 4, para video inverso 
1460 INPUT E 
1470 IF K(2 OR K?8 THEN 1450 
1480 ENERGIA=ENERGIA-K*2.5 
1490 PRINT:PRINT "s::: EN QUE DIRECCION 
8(N,S,E,0)6";:REM Pulsa CTRL+x en y 
ez de los caracteres É, para video i 
nverso 
1500 INPUT AS 
1510 IF A$<5"N" AND A$<7"n" AND A$X7 "5" 
AND A$2>%s" AND ASC>"E” AND ASC? “e” AND 
A$<5"0" AND A$<>"o* THEN 1500 
1520 M=S1:N=52 
1530 FOR J=1 TO K 
1540 PRINT “SECTOR ALCANZADO :*J 
1559 IF A$="0" OR A$="0" THEN M=2M-1 
1560 IF A$="E" OR A$="e" THEN M=M+1 
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1370 IF A$="S" OR A$="s” THEN N=N-1 

1596 IF A$="N" OR A$="n" THEN N=N+1 

1356 IF M1 OR M>32 OR N<1 OR N>16 THEN 
1530 

1606 1F A(M,N)=AL THEN PRINT "NAVE INVAS 

DRA DESTRUIDA EN "MiN:AK=AK+1:A(M,N)=0:6 

H=6:6J=0:PRINT:GOTO 1640 

1610 TF A(M,N)=5B THEN PRINT “HAS DISPAR 

ADO CONTRA UNA BASE AMIGA !!":A/N,N)=0:E 

NERGIA=ENERGIA/2:G0T0 1640 

1628 1F M=B1 AND N=B2 THEN FRINT "HAS DE 

STRUIDO LA BASE ESPACIAL 2000 !!!":ENERG 

1A=0:60T0 1970 

1630 PRINT TAB(25) 

1640 NEXT 

1550 FOR T=1 TO JO00:NEXT 

1666 RETURN 

1670 REN 4ELERAER RRE RELA AREAS 

1484 REM +x% FUEGO INVASOR +e4 

1690 1F GH=6 OR GJ=06 OR RND(1)>0,3 THEN 

RETUEN 

1700 PRINT "INVASORES SITUADOS EN ” 6H; 

5] 

1710 FRINT "NOS ESTAN DISPARANDO, CAPITA 

Nuóni? 

1728 FOR T=1 TO 3000:NEXT 

1730 R=INT(RND(1)+4) 

1746 1F R=0 THEN PRINT TAB(7);"+* HAN FA 

LLADO EL TIRO !!* 

1750 IF F=1 THEN FRINT "EL INVASOR NOS H 

A DABO EN ESTRIBOR” 

1760 PRINT: PRINT TAB(7) "DESPERFECTOS M 

ENORES”": ENERGIA=ENERGIA-4,75 

1770 1F R=2 THEN PRINT "EL INVASOR HA DI 

SFARADO CONTRA LA":PRINT "SECCIÓN DE LA 

TRIFULACION"SFRINT:FRINT TAB(7)3"DESPERF 

ECTOS DE CON 

SIDERACION ":ENERGIA=ENERGIA-18,25 

1790 PRINT TAB(7)5"SECCION DE LA TRIFULA 

CION” 

1796 PRINT:FRINT TABi7); "DESPERFECTOS DE 
CONSIDERACIÓN “:ENERGIA=SENERGIA-18,25 
1800 1F R=3 THEN PRINT:"EL INVASOR HA DE 

STRUIDO El PUENTE DE”: PRINT "MANDO" 


3%... NADA": PRINT 
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1810 PRINT: PRINT TAR (7) "DESPERFECTOS 
GRAVES": ENERGIA=ENERGIA-30. 53 

1820 FOR T=1 TO 3004: NEXT 

1839 RETURN 

1940 REM AXRREREELRRENALR ARE LCIR ELLIS 
1850 REM +** FINAL DE LA BUSQUEDA +*+ 
1850 PRINT:PRINT 

JO20SPRINT Pese ñe 
1886 PRINT TAB(8)3"LO HAS LOGRADO !!!” 
1890 PRINT: "== —oso=osaasocnso==2iós= 
1900 PRINT "HAS ENCONTRADO LA BASE ESPAC 
TAL 2000" 

1910 GENTE=10860+INT(RND(1)*1000) 
1920:PRINT. "=== ========s tesoros oo 
1934 PRINT "AUN HAY";GENTE; "RESIDENTES Y 
IVOS EN LA” 

1940 FRINT "BASE ESFACIAL QUE SE SALVARA 
N FOR EL” 

1956 FRINT "SUERO QUE LES HAS TRAIDO.” 


1974 PRINT "TU PUNTUACION ES DE :"; 

1989 PRINT ABSCINT(GENTE+DIAS+ENERGIAFAR 
-1000)); 

1990 PRINT " PTS.” 

2600 END 

A E E 
2020 PRINT "LAMENTABLEMENTE, NO HAS PODI 
DO ENCONTRAR" 

2030 PRINT "LA BASE ESPACIAL 2000,QUE ES 
TA": PRINT "EN 2 "5 

2040 PRINT B1,B2 

2050 GOTO 1970 

2060 REN HRXERHAENAENENE ARA RES 

2070 REM +** CONTRATIEMPOS +++ 


2086 ACCIDENTE=ACCIDENTE+1 


2000 FRINT UMNAUAN LUNA ENVIARAN 


NUNVAMNAVVA RA 


2190 PRINT 

2110 PRINT "vvvvvvvyvVVVVVVVVV Y VV Y VVVVVV 
VVVVVY vv vv" 

2120 ON ACCIDENTE GOSUE 2160,2270,2490,2 
376,2730 

2130 FOR T=1 TO 1000:NEXT 

2146 RETURN 

Z1SO REM ARAAARARAARRAA RRA RA CIA 

2160 FRINT "TU NAVE HA ENTRADO EN UNA Z0Q 
NA DE” 

2170 PRINT "EMISION DE RAYOS GAMMA ENITI 
005 POR" 

2180 PRINT "UN AGUJERO NEGRO." 

2190 FOR T=1 TO 1000:NEXT 

2260 PRINT TAB (8) "LA NAVE SE HA DESVIA 
DO" 

2210 FRINT TAB(8) "FOR LAS EMISIONES...” 
2220 Si=51+1: 52=82-1 

2230 IF 51:32 THEN 51=32 

2240 1F 52%1 THEN S2=1 

¿2396 RETURN 

TIGO REN HERA AAA RARA RARA 

2270 FRINT "El INFORME DE NAVEGACION DET 
ECTA UNA * 

¿280 FRINT "ACTIVIDAD ATÓMICA ANORMAL DE 
2270 FRINT "MAGNITUDES ENTRE 4.8 Y 19,1 
PROCEDENTES" 

2300 PRINY “DEL ASTEROIDE KAFPTEIN, APAREN 
TEMENTE” 

2310 PRINT "DIRIGIDA HACIA RAYOS ULTRAVI 
OLETA,A Y B."; 

2320 FOR T=1 TO 500: NEXT 

2330 FRINT "ESO SIGNIFICA QUE NUESTRO RA 
DAR FUEDE" 

2340 PRINI “FERDER PRECISION,” 

2300 Bl=B1+2: B2=B2-2 

2360 1F B1>33 THEN B1=33 

2370 TF E2c1 THEN B2=1 

2380 RETURN 

ZIDO REN AREA AAA RARA ERA ARA 

2400 PRINI "INFORMES RECIBIDOS DE LA NEB 
ULOSA DE” 

2410 FRINT "CABEZA DE CABALLO,A 337 PARS 
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ECS DE * 

2420 PRINT "DISTANCIA, NOS INDICAN UNA M 
EDIDA* 

2430 PRINT "EXCESIVA DE SODIO EN UNA NUB 
E DE POLVO ESTELAR” 

2440 FOR T=1 TO S00:NEXT 

2450 PRINT "DEBEMOS UTILIZAR EL 12% DEL 
A ENERGIA" 

2460 PRINT "LA REACCION FROTON-PROTON GE 
NERA” 

2470 PRINT "PARA FORTALECER NUESTROS ESC 
UDOS” 

2486 PRINT "FROTECTORES...” 

2490 FOR T=1 10 506: NEXT 

2500 PRINT "BANCOS DE ENERGIA" ENERGIA 
2510 ENERGTA=ENERGIA+O, 78 

2526 FOR T=1 TO 540:NEXT 

2530 PRINT "DESPUES VE REFORZAR LOS ESCU 
DOS,LA ” 

2540 PRINT "ENERGIA DE LOS BANCOS ES DE” 
ENERGIA 

2536 RETURN 

2560 REM AREIARACARE RARE NARRAR AAA 

2570 PRINT "EL CONTROL INDICA UNA FORMAC 
ION" 

2580 PRINT 
A Mb." 
2390 PRINT 
DEN DE" 
2000 PRINT 
2610 FRINT 
MENTE " 
2620 PRINT TAB(10) ¡"DE ESTA ZONA" 

2639 FOR T=1 TO 300: NEXT 

2640 PRINT TAB (8) ¡”CORRIGE EL CURSO!" 
2559 FOR T=1 TO 1000: NEXT 

¿65% S1=S1+INT(RND(1)+3) 

2670 52=52+INT(RND(1)83) 

2680 IF 51>32 THEN S1=32 

2690 IF 52>16 THEN 52=16 

2704 FOR T=1 TO 1000: NEXT 

2710 RETURN 

2720 REN HARE AA RAR 
2730 PRINT "PELIGRO...PELIGRO...!!* 


"FROTOGALACTICA EN LA NEBULOS 
"TEMPERATURAS INTERNAS DEL OR 


"7,6 MEGA-6RADOS KELVIN ...* 
"TENEMOS QUE ALEJARNOS RAPIDA 
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2740 FOR T=1 TO 300:NEXT: IF RND(1)>9.7 

THEN 2730 

2750 PRINT "AGUJERO NEGRO DENTRO DE "RND 
(10+1000 

2766 PRINT "UNIDADES, EN DIRECCION FRONT 
AL «u 

2770 FOR T=1 TO S00:NEXT 

2780 FRINT:PRINT "EL EFECTO DE LA LENTE 

DE GRAVITACION * 

2790 PRINT "ESTA CAUSANDO UNA GRAN DISTO 
RSION EN" 

2800 PRINT "LAS IMAGENES GALACTICAS, TAL 

COMO FUEDE" 

2810 PRINT "OBSERVARSE DEL PROCESO INICI 
ADO” 

2820 M=52: 52=51: Si=5M 

2830 PRINT "ESTAMOS CAYENDO A GRAN VELOC 
IDAD ... * 

2840 1F RND(1)>4 THEN 2840 

2850 RETURN 

2860 REM AEEERA RELE A AA NANA ARAR 

2870 REM *ex INICIALIZACION sex 

2880 MODE 1 

2890 PEN 2:CL5 

2900 PRINT :PRINT "POR FAVOR,ESPERA ...” 


, 

2910 DIM A(32,16) 

2920 AL=ASC("M"): REN +e% INVASORES +e+ 
2930 AK=0:REM *ek INVASORES MUERTOS ++* 
2940 NA=ASC("N"): REN +%% TU NAVE 48% 
2730 SB=ASC("B"):REM +** BASE ESPACIAL +* 
+ 

2960 TA=ASC("X"):REM +e* OBJETIVO DEL JU 
EGO BASE ESPACIAL 2000 +81 

2970 DIAS=1090 

2980 ENERGIA=300 

2990 REM +*s* CREACIÓN DEL UNIVERSO +ex 
3000 FOR M=1 TO 108 

3018 SOUND 1,100,2,3:PRINT *.*; 

3620 FOR N=1 TO 2 

3030 C=INT(RND(1)+32)+1 

3040 D=INT(RND(1)+16)+1 

3050 1F N=1 THEN A(C,D)=AL 

3060 IF N=2 THEN A(C,D)=SB 
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3070 NEXT 

3080 NEXT 

3090 REN +e* BASE ESPACIAL 2000 +%* 
3100 B1=INTIRND(1)*32)+1 

3110 B2=INTIRND(1)+16)+1 

3120 A(B1,B2)=TA 


3130 REM *** POSICION INICIAL DE LA NAVE 
RA 


LO REM AXRRARENERRA LERNER RARE RIRS 

¿0 REM + * 

30 REM * LOS VIAJES DE MAGALLANES +* 

40 REM x + 

SQ REM 4ERAERAALERA ARALAR REE RRIAA RR 

6h REM 

70 GOSUB 3420:REM INICIALIZACION 

80 CLS+PRINT 

96 T=INT(RND(1)43) 

190 SEMANA=SEMANA+1 

110 VIVERES=INT(VIVERES-COMIDO+ HOMBRES) 
120 1F VIVERESC1 THEN 480 

130 IF RND(1)>8.74 THEN HOMBRES=HOMBRES- 
INT(RND(1)43) 

190 PRINT Maso === aseos 
150 1F T=0 THEN PRINT "CAPITAN MAGALLANE 
S , ESTE ES El DIARIO" 

160 1F T=0 THEN PRINT "DE NAVEGACION DEL 
VICTORIA " 

178 IF T=0 THEN PRINT "CORRESPONDIENTE A 
LA SEMANA "SEMANA 

186 IF T=1 THEN PRINT "CAPITAN MAGALLANE 
S , ESTE ES EL LIBRO DE" 

190 IF T=1 THEN PRINT "A BORDO CORRESPON 

DIENTE A LA" 

200 IF T=1 THEN PRINT SEMANA"SEMANA DE N 
AVEGACION" 

210 IF T=2 THEN FRINT "CAPITAN MAGALLANE 
5, AGUI TIENES EL * 

220 1F T=2 THEN FRINT "INFORME DE LA SEM 
ANA "SENANA"DE NAVEGACION" 

230 1F FRT=1 OR PRT=9 THEN 770 

240 HOMBRES=1NT(ABS (HOMBRES) ) 


3140 SI=INT(RND(1)432)+1 

3150 52=INT(RND(1)*16)+1 

3160 1F Si=B1 OR 52=B2 THEN 3140 
3170 A(51,52)=NA 

3180 GENTE=0 

3190 GH=0:6J=8 

3200 ACCIDENTE=0 

3210 RETURN 


2304 FRINT TAB (8)5"*CUENTAS CON*HOMBRES" 
HOMBRES+" 

260 IF HOMBRESC10 THEN PEN=3:PRINT "ESTA 
TRIPULACION NO ES SUFICIENTE” 

27€ 1F HOMBRES<10 THEN FRINT "PARA EL VI 
CTORIA, ASI QUE TENDREMOS QUE" 

286 IF HOMBRESC10 THEN FRINT "PERMANECER 
AQUI EN*SAS(PRT) PEN 1:60T0 880 


300 T=INT(RND(1)+3.5) 

310 IF ASTRO=0 OR CUADRANTES=0 THEN 
PRINT "NO DISPONEMOS DE NINGUN INSTRUMEN 
TO DE" 

320 IF ASTRO=6 OR CUADRANTES=0 THEN 
PRINT "NAVEGACION !!!* 

330 IF ASTRO=%8 OR CUADRANTES=4 THEN PEN 
J:¿FRINT "ESTO ES EL FINAL..." : FENI: 
605UB 3764:60T0 880 

340 TF T=f THEN PRT=PRT+1:1F PRT>9 THEN 
PRT=9:PRINT "ESTAMOS EN "¡AS (PRT) 

350 N=INT(RND(1)+2) 

368 1F INT(VIVERES/ (COMIDO*HOMBRES))<1 
THEN 480 

376 1F 10 THEN PRINT:PRINT TAB(4);"LA B 
DDEGA CONTIENE VIVERES" 

380 PRINT TAB (10) ¿"PARA "INT(VIVERES/ 1 
COMIDO*+HOMBRES) ) "SEMANAS" 

390 1F T>0 AND W=1 TREN PRINT:PRINT TAB( 
RND(1):8);"SEGUIMOS NAVEGANDO...” 

460 IF T:0 AND W=1 THEN GOTO 6% 

410 IF T>0 AND H=0 THEN PRINT:PRINT TAB( 
END(1)*8); "NUESTRO VIAJE CONTINUA...” 
420 IF T;4 AND W=4 THEN GOTO 690 
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436 1F HOMERES<10 THEN PEN 3:PRINT "TU T 
RIPULACION ES DEMASIADO ESCASA PARA" 

440 IF HOMBRES<10 THEN PRINT "EL VICTORI 
A, ASI QUE HEMOS DE QUEDARNOS" 

450 IF HOMBRES<10 THEN PRINT "AQUI EN *; 
ASAPRTI 

460 IF HOMBRES<10 THEN GOTO 889 

470 1F VIVERES?1 THEN 540 

490 PEN 3:PRINT TAB(5)5"SE HAN AGOTADO L 
05 VIVERES !!!":GOSUB 3760 

490 PRINT TAB(3)5"TODOS TUS HOMBRES HAN 
MUERTO..." 

3064 PRINT “TU TAMBIEN ESTAS A PUNTO DE M 
ORIR...* 

310 GOSUB 3760 

320 PRINT:PRINT "ES UNA PENA QUE TODO HA 
YA ACABADO ASI” 

530 PEN 1: PRINT TAB(6);"ESTO ES LO QUE 
HAY A BORDO":PRINT:GOTO 660 

340 PRINT:PRINT "LAS ARCAS CONTIENEN"DIN 
ERO:PRINT “DOBLDNES DE QRO" 

350 PRINT<PRINT "EN LA BODEGA HAY"VIVERE 
5 

360 PRINT “CAJONES DE VIVERES SUFICIENTE 
5 “ 

370 PRINT "PARA" INT(VIVERES/ (COMIDO+HOME 
RES) )"SENANAS” 

380 PRINT:PRINT "INTRODUCE TU OPCION:”* 
390 FRINT 

600 PRINT TAB (4)"618- INSPECCIONAR LAS 
BODEGAS": REN PULSAR CTRL+X EN VEZ DE € 
PARA VIDEO INVERSO 

610 PRINT TAB (4)"828- NEGOCIAR CON LOS 
NATIVOS” 

520 PRINT TAB (4)"638- ZARPAR HACIA EL P 
ROXIMO PUERTO" 

630 IF INKEYSC>"" THEN 630 

640 B$=INKEYS 

630 IF E$c"1" OR B$>"3" THEN 640 

660 1F B$="1" THEN GOSUB 1030 

676 1F B$="2" THEN G0SUB 1310:60T0 740 
680 REM +*ek INCIDENTES ++ 

590 RN=INT(RND(1)*21) 

700 IF RN=1 THEN ESC=ESC+1: IF ESC=3 THEN 


RN=2 ELSE GOSUB 2650 

710 1F RN=2 THEN NAUFRAGIO=NAUFRAGIO+1:1 
F NAUFRAGIO=2 THEN RN=3 ELSE 60SUB 2770 
720 1F RN=3 THEN MOTIN=MOTIN+1: 1F NOTIN= 
2 THEN RN=4 ELSE GOSUB 2970 

730 1F RN=4 THEN PIRATAS=PIRATAS+1:1F PI 
RAVAS=3 THEN 690 ELSE G0SUB 3150 

740 GOSUB 3760 

736 G0T0 80 

760 REN ERELPRALELARERRERIS 

770 REM PUERTO ESPAÑOL 

780 IF PRT=9 THEN 840:REN +* FINAL +* 
190 PRINT:PRINT "HEMOS ZARPADO DE LAS CO 
STAS ESPAÑOLAS" 
809 PRINT "CON UNA TRIPULACION DE "HOMER 
ES"HOMBRES”" 
810 GOSUB 3760 

820 CLS:PRINT:PRINT 
830 T=0:G0TO 346 

840 REM ++x FIN DE VIAJE 4%* 
356 PEN 0:FAPER 1:BORDER 24:PRINT “BIEN 
HECHO, CAPITAN" 
864 PRINT:PRINT "HAS CONSEGUIDO REGRESAR 


870 FRINT "SANO Y SALVO A ESPAÑA": PRINT 
880 PRINT "HAS TERMINADO TU VIAJE CON:": 
PRINT 

890 PRINT DINERO”DOBLONES DE ORO" 

900 PRINT PIEZA"PIEZAS DE TELA" 

910 PRINT ASTRO"ASTROLABIOS" 

920 PRINT SAL"SACAS DE SAL" 

930 PRINT HIER"LINGOTES DE HIERRO" 

940 PRINT POLVORA"BARRILES DE POLVORA" 
950 PRINT CUADRANTE"CUADRANTES" 

960 PRINT 

970 PRINT:PRINT TAB (4) "LA VALORACION D 
E TU VIAJE" 

980 PRINT TAB(4) "ES DE" INT((PIEZA+2*AS 
TRO+SAL+24HIER+S*POLVORA+74CUADRANTES) +1 
SEMANA+HOMBRES+DINERO) /62) "PUNTOS" 

990 PRINT:PRINT TAB (4) "EL VIAJE HA DUR 
ADO"SEMANA"SENANAS" 

1000 1F INKEYS<>"" THEN 1060 

1010 END 
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1020 REM HARELRARLEERARA ELE LRERERUELRR ER 
1030 REM +* INSPECCION DE LAS BODEGAS +* 
1049 BOTIN=0 

1050 PRINT "EN LAS BODEGAS ENCUENTRAS: ": 
PRINT 

1040 IF PIEZA>O THEN PRINT PIEZA"PIEZAS 
DE TELA QUE VALEN "PIEZAFPDINERO 

1070 IF P1E74>0 THEN FRINT "DOBLONES”:EO 
TIN=BOTIN+PIEZA*PDINERO 

1086 IF ASTRO>O THEN FRINT ASTRO"ASTROLA 
BIOS QUE VALEN"ASTRO+ADINERO 

10906 IF ASTRO>0 THEN PRINT "DOBLONES": EQ 
TIN=BOTIN+ASTROXADINERO 

11009 IF sal» THEN FRINT SAL"SACAS DE SA 
L QUE VALEN"SAL+SDINERO"DOBLONES" 

1118 IF sa150 THEN BOTIN=BOTIN+SAL+SDINE 
RO 

1120 1F HIER>O THEN FRINT HIER”"LINGOTES 
DE HIERRO QUE VALEN"HIER+HDINERO"DOBLONE 
gu 

1130 IF HIER>O THEN BOTIN=BOTIN+HIER+HDI 
NERO 

1140 TF FOLVORA>4 THEN PRINT FOLVORA"EAR 
RILES DE POLVORA QUE VALEN"POLVORA+LDINE 
RO"DOBLONES" 

1150 1F POLVORA>O THEN BOTIN=BOTIN+POLVO 
RAFLDINERO 

11460 1F CUADRANTES>0 THEN PRINT CUADRANT 
ES"CUADRANTES QUE VALEN"CUADRANTES+CDINE 
RO"DOBLONES* 

1170 1F CUADRANTES>0 THEN BOTIN=BOTIN+CU 
ADRANTES+CDINERO 

1190 PRINT:PRINT "EL VALOR TOTAL DE LA M 
ERCANCIA ASCIENDE" 

1190 PRINT "A"BOTIN"DOBLONES":PRINT:PRIN 
] 

1260 PRINT “INTRODUCE TU OPCION: ":PRINT 
1210 FRINT TAB(3) "e186- PARA COMERCIAR C 
ON LOS NATIVOS"sREM PULSAR CTRL+X EN VEZ 
DE € PARA VIDEO INVERSO 

1229 PRINT TAB(3) "E28- PARA CONTINUAR E 
L VIAJE” 

1230 IF INKEYS$<>"" THEN 1230 

1240 B$=INKEYS 


1250 IF E$<"1" OR B$)"2" THEN 1240 

1266 1F R6="1" THEN B$="2*": RETURN 

1270 1F B$="2" THEN B$="3": RETURN 

1280 RETURN 

1296 END 

1300 REM ERELARERIALERARR 

1310 REM +£t CONERCIO + 

1320 PRINT "=== 
1330 FRINT "CAPITAN, QUE MERCANCIAS VAMO 
S A VENDER?" 

1340 1F INKEYS<>"" THEN 1340 

1350 IF PIEZA>O THEN FRINT ” 018 - PIEZA 
S DE TELA"sREM PULSA CTRL+X EN VEZ DE € 
FARA VIDEO INVERSO 

1360 IF ASTRO)O THEN PRINT " €28 - ASTRO 
LABIOS" 

1370 IF SAL>0 THEN PRINT ” 638 - SACAS D 
E SAL" 

1380 1F HIER>0 THEN PRINT ” £48 - LINGOT 
ES DE HIERRO" 

1398 IF POLVORA>4 THEN PRINT * 658 - BAR 
RILES DE FOLVORA * 

1409 IF CUADRANTES>0 THEN PRINT " 668 - 
CUADRANTES" 

1410 PRINT ” 678 - PARA COMPRAR A LOS NA 
TIVOS" 

1420 PRINT " €86 - PARA CONTINUAR EL VIA 
JE" 

1430 PRINT "ono 
1440 A$=INEEYS 

1450 IF A$("1" OR A$>"8" THEN 1440 
1460 IF A$="8" THEN RETURN 

1470 IF A$="1" THEN 1570 

1499 1F A$="2" THEN 1690 

1490 IF A$="3" THEN 1810 

1580 IF A$="4" THEN 1940 

1510 1F As="5" THEN 2099 

1526 1F A$="5" THEN 2220 

1530 IF A$="7" THEN 2350 

1540 GOTO 1449 

1550 G0SUE 3760 

1346 RETURN 
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LOTO REH RAPE RELI AEREA RARE LEAR RR AA 

1589 IF FIEZAX1 THEN 1550 

1590 PRINT "TENEMOS"FIE2A"PIEZAS DE TELA 
POR VALOR DE"PDINERO"CADA UNA" 

1600 PRECIO=INT(PDINERO+RND(1)) 

1£10 IF PRECIO<PDINERO/2 THEN 1608 

1624 PRINT “LOS NATIVOS OFRECEN"PRECIO*P 

OR PIEZA" 

1630 PRINT TAB(8) "CUANTAS QUIERES VENÉE 

de 

1640 INFUT K 

1559 1F K>PIEZA THEN 1649 

1650 DINERO=DINERO+K*+PRECIO 

1670 PIEZA=PIEZA-K 

1480 EOTO 1320 

1590 REM sex* VENTA DE ASTROLABIOS +++ 
1700 IF ASTROX1 THEN 1550 

1710 PRINT "TENEMOS"ASTRO"ASTROLABIOS PO 
R VALOR DE"ADINERO"CADA UNO" 

1720 PRECIO=INT(ADINERO+RND (1)) 

1730 IF PRECIOCADINERO/2 THEN 1720 

1740 PRINT "LOS NATIVOS NO OFRECEN MAS D 
E"PRECIO"FOR CADA UNO" 

1750 FRINT TAB(8) "CUANTAS QUIERES VENDE 
RY; 

1740 INFUT K 

1770 1F K>ASTRO THEN 1766 

1780 DINERO=DINERO+K+FRECIO 

1790 ASTRO=ASTRO-K 

1869 GOTO 132% 

1810 REM +e* VENTA DE SAL *+* 

1820 IF SAL<1 THEN 1559 

1830 FRINT "TENEMOS"SAL"SACAS DE SAL POR 
VALOR DE"SDINERO"CADA UNA" 

1949 PRECIO=INT(SDINERO+AND(1)) 

1850 IF FRECIO<SDINERO/2 THEN 1848 

1850 FRINT "LA MEJOR OFERTA QUE OFRECEN 

LOS NATIVOS” 

1970 PRINT "ES DE"FRECIO"POR CADA SACA" 
1890 PRINT TAB(8) "CUANTAS QUIERES VENDE 
R”; 

1999 INFUT K 

1900 IF K>SAL THEN 1898 

1910 DINERO=DINERO+K*+FRECIO 
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1920 SAL=SAL-K 
1938 GOTO 1320 
1940 REM +ex VENTA DE LINGOTES +es 
EH DE HIERRO +84 
1950 1F HIER<1 THEN 1550 
1960 PRINT "TENEMOS”"HIER”LINGOTES DE HIE 
RRO POR" 
197% PRINT "VALOR DE"HDINERO"CADA UNO" 
1980 PRECIO=INT(HDINERO+AND(1)) 
15990 IF PRECIOCHDINERO/2 THEN 1980 
2000 PRINT "LA MEJOR OFERTA QUE OFRECEN 
LOS NATIVOS" 
2010 PRINT "ES DE"FRECIO"POR CADA LINGOT 
E" 
2020 PRINT TAB(8) "CUANTAS QUIERES VENDE 
Ri 
2030 INPUT K 
2649 IF K+HIER THEN 2030 
2050 DINERD=DINERO+K*PRECIO 
2060 HIER=HIER-K 
2070 GOTO 1320 
2080 REM +** VENTA DE POLVORA *se 
2090 IF FOLV<1 THEN 1550 
2100 PRINT "TENEMOS"POLV"BARRILES DE POL 
YIRA POR * 
2116 PRINT “VALQR DE"LDINERO"CADA UNO" 
21720 PRECIO=INTULDINEROHRND (1) 
2130 1F PRECIO<LDINERO/2 THEN 2120 
2140 PRINT PRECIO*POR BARRIL ES TODO LO 
QUE" 
2150 PRINT “OFRECEN LOS NATIVOS” 
2160 PRINT TAB(8) "CUANTAS QUIERES VENDE 
R"; 
2170 INPUT K 
2180 1F KóHIER THEN 2170 
2190 DINERO=DINERO+K+PRECIO 
2200 POLY=POLV-K 
2216 GDTO 1320 
2220 REN sex VENTA DE CUADRANTES +++ 
2230 IF CUADRANTES<1 TREN 1550 
2240 PRINT “TENEMOS "CUADRANTES"CUADRANTE 
5 POR " 
2250 PRINT "VALOR DE"CDINERO"CADA UNO” 
2260 PRECTO=INT(CDINERO+RND(1)) 
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2270 1F PRECIOXCDINERO/2 THEN 2260 

2280 FRINT "LOS NATIVOS OFRECEN"PRECIO*P 
OR CADA” 

2290 PRINT “CUADRANTE QUE LES VENDAS” 
2300 PRINT TAB(8) "CUANTAS QUIERES VENDE 
R"; 

2310 INFUT K 

2320 1F K>CUADRANTES THEN 2310 

2330 DINERO=DINERO+K+PRECIO 

234 CUADRANTES=CUADRANTES-K 

¿330 GOTO 1320 

2360 REM 4% COMPRAR A LOS NATIVOS +ex 
2370 1F INKEVSC?"" THEN 2370 

LIO PRINTS EAS 
2390 FRINT TAB(7) ">> TIENES"DINERO“DOBL 
ONES <<": FRINT 

2400 PRINT "LOS NATIVOS OFRECEN: " 

2410 CUENTAS=9+INT(RND(1)47) 

2420 PRINT TAB(4) "616 - ALIMENTOS A"CUE 
NTAS"POR SACO":+REM FULSA CTRL+X EN VEZ 
DE € PARA VIDEO INVERSO 

24309 ESCLAVO=30+ INT(RND(1)29) 

2440 FRINT TAB(4) "B28 - ESCLAVOS A"ESCL 
AVO"CADA UND" 

2450 PRINT TAB(4) "636 - SI PREFIERES SE 
GUIR NAVEGANDO" 

2460 BS=INKEYS 

2470 1F B$<"1" OR B$>"3" THEN 2460 
2400-PRINIT => ===> >= ntonoeres 
2490 IF E6="3" THEN 1550 

2300 1F B$="2" THEN 2579 

2510 PRINT "CUANTOS VIVERES QUIERES"; 
2520 INPUT K 

2030 IF KeCUENTAS>DINERO THEN FRINT "NO 
TIENES SUFICIENTE DINERO":GOTO 2520 
2549 VIVERES=VIVERES+K:DINERO=DINERO-k +0 
UENTAS 

23530 PRINT "> YA ESTA HECHA LA 1RANSACCI 
ON <":60SUB 3760: 6010 2370 

2360 GOTO 2400 

2570 FRINT "CUANTOS ESCLAVOS QUIERES"; 
2589 INPUT K 


2590 IF K*ESCLAVO2DINERO THEN FRINT "ESA 
CANTIDAD NO FUEDES PAGARLA CON EL * 

2600 IF KXESCLAVO>DINERO THEN PRINT "DIN 
ERO DE QUE DISPONES":GOTO 2580 

2610 HOMBRES=HOMBRES+K: DINERO=DINERO-E sE 
SCLAVO 

2620 PRINT "LOS ESCLAVOS YA HAN PASADO A 
FORMAR PARTE" 

2630 PRINT "DE LA TRIPULACION":G0SUE 374 
0:5070 2370 

254% REM ARA A RARE RARE RARAS 
2650 REM +e* NUERTE POR ESCORBUTO 4+» 

2660 PEN OxPAPER 1:BORDER 24:PRINT "DEBI 
DO A LA FALTA DE ALIMENTOS FRESCOS," 

2670 PRINT "EL ESCORBUTO SE HA APODERADO 
DE" 

2680 PRINT " LA NAVE...” 

2699 GOSUB 3740 

2700 K=HOMBRES/3:K=INT(RND(1)4K+1) 

2710 PRINT K*HOMBRES HAN DESAPARECIDO" 

2720 GOSUB 3746 

2730 HOMBRES=HOMBRES-K 

2740 FEN 10:PAPER 0: BORDER 24 

2750 RETURN 

2750 REM RIHARRERA RARE EL 

2776 REN +*e NAUERAGIO +48 

2780 FRINT "LA NAVE ESTA A'LA DERIVA LLE 
VADA POR” 

2790 PRINT “LAS TUMULTUOSAS ABUAS...” 
2800 PRINT "CORREMOS UN GRAN PELIGRO...” 

2810 GUSUB 3750 

2820 TF RND(1)>0.8 THEN 2920 

2830 PRINT:PRINT "LA TORMENTA ESTA PASAN 
DO..." 

2840 PRINT "PERO PARTE DE LA CARGA Y ALG 
UNOS * 

2859 FRINT "HOMBRES HAN DESAFARECIDO POR 
LA BORDA" 

2866 HOMBRES=34 INT (HONBRES/4) :PIEZA=5*IN 
TIPIEZA/6) 

28708 ASTRO=7* INT(ASTRO/8):SAL=3+INT(SAL/ 
4) 

2880 HIER=4*INT(HIER/S) :POLV=5* INT(POLY/ 
6) 


00 OO OoO0OosO0os0 


O: Do 17 ¿O 0 O 0 20:- 0: 00. O 10. 0 0-0 


325 


OOOO OOO OOOo os 0 OoOo OOO Oo 0oO-Oououoyquqomym0oqomso 


O 


O 


2890 CUADRANTES=7*INT (CUADRANTES/8) 

2900 60SUB 3760 

2918 RETURN 

2920 PEN 6:PAPER 1:BORDER 24:FRINT:FRINT 


"UNA GIGANTESCA OLA HA INUNDADO LA NAVE 


2930 PRINT "QUE SE KUNDE SIN QUE NADA PU 
EDA HACERSE" 

2940 GOSUB 3754 

2950 GOTO 99% 

2960 REM EKELERELREELE 

2974 REM +e* MOTIN +e£ 

2980 PRINT “LOS HOMBRES ESTAN DESCONTENT 
05 CON TU”; 

2990 PRINT "MODO DE ACTUAR, SE HABLA DE 


UN MOTIN" 
3600 GO0SUB 3760 


3019 IF RND(1)>0.8 THEN 3080 

3020 PRINT "PERO TU CONTROLAS A TIEMPO L 
A SITUACION" 

3030 PRINT “CUELGAS A DOS DE LOS AMOTINA 
DOS PARA * 

3040 FRINT "DARLES A LOS OTROS UNA LECCI 
ON y* 

3054 FRINT "CONTINUAS EL VIAJE” 

3060 GOSUB 3760 

3070 RETURN 

3090 FEN 3:PRINT:PRINT “HAN TRIUNFADO LO 
S AMOTINADOS...Y A TI" 

3090 PRINT "TE DEJAN EN UNA BARCA EN MED 
10 DEL* 

3100 FRINT"OCEANO. . 
3110 FEN 1 

3120 60SUB 3768 
3130 60T0 990 

3140 REM cer ExE RANIA ER 

3150 REM +er PIRATAS $e 

3160 PRINT "UN BARCO PIRATA DE LA PEOR C 
ALARA HA" 

3170 PRINT "SIDO AVISTADO A ESTRIBOR*" 
3180 605UB 3760 

3190 PRINT "LOS PIRATAS ABORDAN NUESTRA 
NAVE" 

3206 GOSUB 3760 


«ESTO ES El FIN" 
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210 T=INT(RND(1)+3) 

220 IF T=06 THEN 3290 

230 IF T=1 THEN 3370 

3240 PRINT "TU LES OFRECES COMPRAR TU LI 
BERTAD Y" 

3250 PRINT "ELLOS ACEPTAN LLEVANDOSE LOS 
DOBLONES* 

3200 PRINT "Y LA FOLVORA...” 

3276 DINERO=0: POLV=0 

3280 RETURN 

3290 PRINT "LOS TEMIBLES BANDOLEROS DEL 

MAR SUBEN" 

3300 PRINT "A BORDO MATANDO HOMBRES A DI 

ESTRO Y SINIESTRO” 

3310 K=INT(RND(1) *HOMBRES+HOMBRES/3) 

3320 60SUB 3766 

3330 PRINT “EN TOTAL HAN PERECIDO"K"HOMB 

RES" 

3340 HOMBRES=HOMBRES-K 

3350 GOSUB 3760 

3360 RETURN 

3370 PRINT "HEMOS TENIDO SUERTE. ..HAN HU 

100" 

3380 PRINT TAB(8) "TIERRA!!!" 

3398 605UB 37650 

3400 RETURN 

3410 REM EREXEARARELRA NAAA 

3420 REH ++* INICIALIZACION +e* 

343€ SYMBOL AFTER 237: SYMBOL 237,60,0,21 

6,102,102,102,102,0:STMBOL 239,50,0,230, 

246,222,206,198,4:KEv DEF 17,1,174:EEY D 

EF 22,0,237, 

238 

3440 REM %xtx% DEFINE LETRAS > Y USING *x 

El 

3459 MODE 1 

3460 PEN 1:PAPER O: BORDER 1 

3470 DIM A$19) 

3480 HOMBRES=100+INT(RND(1)*39) 

3496 DINERO=200+INT(RND(1)%50) 

3500 VIVERES=100+INT(RNDI1)+*30) 

3310 COMIDO=9,02+INT(RND(1)+10)/100 

3520 IF VIVERES/(COMIDOFROMBRES)>11 THEN 
3480 
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3530 PIEZA=160+INT(RND(1)*30): REM 
+ PIEZA DE TELA *e 
3540 PDINERO=5+ INT(RND(1)%3): REM 
+ VALOR DE CADA PIEZA DE TELA +* 
3330 ASTRO=15+ INT (RND(1)+5):REM 
++ ASTROLABIOS +x 
3560 ADINERO=20+INTIURND(1)%3):REH 
++ VALOR DE CADA ASTROLABIO ** 
3570 SAL=50+1NT(RND(1)%7) REN 
+ SACAS DE SAL +* 
3580 SDINERO=50+INT(RND(1)%4):REM 
%* VALOR DE CADA SACO DE SAL ** 
3390 HIER=30+INT(RND(1)48) : REM 
+ LINGOTES DE HIERRO +e 
3600 HDINERO=5+INT(RND(1)%3):REHN 
+k VALOR DE CADA LINGOTE DE HIERRO +* 
3610 FOLVORA=3+INT(RND(1)42) 
3620 LDINERO=90+INT(RND(1)+28) 
3630 CUADRANTES=16+INT(RND(1144) 
3649 CDINERO=30+INT(RND(1)*4) 
3650 SEMANA=0 
3660 PRT=1 


10 REM +EHAAUER AEREA LA ELAEREAR 

20 REM + + 

30 REM * EL CUBO DE ELEUSIS + 

40 REN + É 

SO REM dAMELEARENAALELHELAAA 

50 REN 

70 DIN 4(9),8(9),0(9),4(3),N(3),0(3) 

80 RAYOS=26 

90 FOR J=1 T0 3 

106 2=INT(RND(1)+9)+1:1F A(Z)=1 THEN 100 
110 A(Z)=1 

120 2=INT(RND(1)*9)+1:1F B(Z)=1 THEN 120 
130 B(7)=1 

148 2=INT(RND(1)+9)+1:1F C(2)=1 THEN 146 
130 C(7)=1 

160 NEXT 

170 PEN 1:PAPER 6: BORDER 1 

186 60SUB 900 

194 G0SUB 719 

200 IF RAYOS=1 THEN PEN 3 


3670 ESC=0 

36580 POLV=0 

3598 MOTIN=9 

370% PIRATAS=9 

3710 FOR J=2 TO 8 

3720 READ A$(J) 

3730 NEXT 

3740 RETURN 

3759 REM AHRALAFIER ERA 

3740 REN +%*% RETARDO +4% 

3770 REM ALTERA EL RETARDO FARA TU 

SISTEMA 

3789 FOR P=1 TO 2500: NEXT F 

3790 RETURN 

3000 REM FFEFEFERRES 

3910 REM +es DATA +er 

3820 DATA "ISLAS CANARIAS", "ISLA DE CABO 
VERDE", "CABO DE SAN AGUSTIN", "RIO DE JA 

NEIRO" 

3930 DATA "EL RIO DE SANTA CRU2", "TIERRA 
DEL FUEGO”, "ISLA DE MACTAN" 


210 PRINT ">CUENTAS CON"RAYOS”RAYOS DE E 
NERGIA MENTAL<":PRINT 

220 PEN 1 

230 PRINT "QUIERES CONCENTRARTE EN" 

240 PRINT " 18-PARTE SUPERIOR": REN 
PULSA CTRL+X EN VEZ DE LOS CARACTERES 

€ PARA VIDEO INVERSO 

250 FRINT " 628-PARTE DELANTERA" 

260 FRINT " 638-PARTE IZQUIERDA" 

270 PRINI * €48-LANZAR UNA HIFPOTESIS* 
286 1$=INKEYS:1F 2$="" THEN 280 

29 2=VAL (29) 

360 1F 2<1 OR 274 THEN 280 

310 1F 2=4 THEN G0SUB 1420 

320 IF 1=4 THEN 640 

330 PRINT "CONCENTRACION DE LA ENERGIA M 
ENTAL EN"; 

346 PRINT "LA CARA *; 

350 1F Z=1 THEN PRINT "SUPERIOR" 

366 1F 1=2 THEN PRINT "DELANTERA" 
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370 1F 2=3 THEN PRINT "IZQUIERDA" 

380 PRINT "QUE NUMERO E (DEL 1 AL 9)6";:R 

EM PULSA CTRL+X EN VEZ DE LOS CARACTERES 

€ PARA VIDEO INVERSO 

390 X$=INKEYS: IF X$="" THEN 390 

300 X=VAL(XS$) 

410 IF X<1 OR X>9 THEN 390 

426 60SUB 710 

430 FL=0 

344 1F 1=2 THEN 500 

450 IF 2=3 THEN 540 

460 FOR J=1 10 3 

470 1F X=M(3) THEN Fl=1 

488 NEXT 

490 60710 570 

500 FOR J=1 TO 3 

5109 IF X=N(J) THEN Fl=1 

524 NEXT 

530 6070 570 

540 FOR J=1 TO 3 

550 1F X=0(J) THEN FL=1 

364 NEXT 

570 IF FL=! THEN PRINT "EL RAYO NO HA SA 
LIDO FOUR EL OTRO LADO":G60TO 620 

580 PRINT "EL RAYO HA SALIDO POR EL SECT 
OR*":PRINT X; 

590 1F 2=1 THEN PRINT “INFERIOR” 

600 IF 2=2 THEN PRINT "POSTERIOR * 

614 1F 2=3 THEN PRINT “DERECHO” 

620 FOR T=1 TO 1500:NEXT 

630 RAYOS=RAYOS-1 

640 1F RAYOS>0 THEN 190 

$50 FOR N%=190 TO 396 STEP 26:SOUND 2,Nz 
,39, 4: NEXT 

660 PEN O0:PAPER 1:BORDER 24:CLS:LOCATE 1 
,16:PRINT "LO SIENTO, SE TE HA ACABADO EL 
TIEMPO" 

670 PRINT “NO HAS CONSEGUIDO LOCALIZARLA 
s* 

480 GOTO 1284 

699 END 

700 REM 44EELEERELA REE RARA E REL AR ERRE 

710 REM ++ IMPRESION DE PANTALLA ** 

720 CLS:PRINT 
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730 FRINT ” SUP, 

740 PRINT * 123 

750 FRINT "* 1506 

766 PRINT ” 7189 

770 PRINT 

786 PRINT " 120. DEL. DER. DET.” 
790 PRINT* 123 123321 321 
966 PRINT" 4565 456 654 654 
810 PRINT " 789 789 987 987 
826 PRINT 

830 PRINT * INF. " 

840 FRINT " 7189 

858 PRINT * 4506 

860 PRINT " 123 

870 FRINT 


88% RETURN 

090 REM ERA RARARERERA NARA 

060 REM *+* LOCALIZACION +* 

914 FOR J=1 10 3 

920 MJ)=0:N(J)=0:0(J)=0 

930 NEXI 

940 Hi=1:Ni=1:01=1 

95% FOR J=1 TO 9 

964 1F A(J)=1 THEN M(M1)=J:Mi=M1+1 

970 IF B(J)=1 THEN N(N1)=J:N1=N1+1 

980 IF C(J)=1 THEN 0(D1)=J:01=01+1 

996 NEXT 

1000 RETURN 

1010 REN HXERERERHAA AAA EARL CERRAR AE 
E 

1020 REN +* PREDICCION DE LA LOCALIZACIO 
N te 

1039 PRINT "ES EL MOMENTO DE LANZAR UNA 
HIFOTESIS" 

1040 FRINT 

1050 GEMAS=0 

1459 FOR T=1 TO 3 

1070 PRINT "INTRODUCE COORDENADAS (3 NUM 
EROS" 

1080 PRINT "SEPARADOS POR COMAS)"; 

169% INFUT A(TD),B(M,C(T) 


000 0 0 OO O OSA OSO 
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1266 CLS 

1219 RETURN 

1220 REN ARRRRRRDRRRRRRE AA 

1230 REN +8* FINAL DEL JUEGO ++* 

1240 G0SUB 716 

1250 PRINT:PRINT 

1250 PEN 0: FAPER 1:BORDER 24:CLS:PRINT " 
LAS HAS ENCONTRADO QUEDANDOTE"RAYOS 
1270 PRINT " RAYOS DE ENERGIA MENTAL 


1109 1F A(T)=M(1) AND B(T)=NC1) AND CLT) 
=0 (1) THEN PRINT TAB (5)5 *>> LOCALIZADA 
EN "MON 1) 5001); "<<": GEMAS =GEMAS+1 
1110 1F A(T)=M(2) AND B(T)=N(2) AND CCT) 
=00(2) TREN PRINT TAB (3); ">> LOCALIZADA 
EN "MIZIINC2)50(2)5 "<<": GEMAS =GEMAS+1 
1120 IF ACT)=M(3) AND B(TI=N(3) AND CT) 
=0(3) THEN FRINT TAB (3); ">> LOCALIZADA 
EN "MUNI GO (3); "<< *: GEMAS =GEMAS+1 

1130 NEXT 

114% FOR T=1 10 1000: NEXT 

1150 IF GEMAS=3 THEN 1220 

1160 PRINT:PRINT TAB(4)5"<< HAS ENCONTRA 
DO"BEMAS"GEMAS >>":PRINT 

1170 1F INKEYS$<>"" TREN 1170 


o. oO 


1289 PRINT 

1296 PRINT TAB(7) ¡"ESTABAN EN:" 
1309 FRINT 

1316 FOR d=1 70 3 

1326 PRINT TAB (9)5M(J)5N(3)50(J) 


oo 0 O O 
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O 1180 PRINT:PRINT "PULSA UNA TECLA PARA € 1330 PRINT 
ONTINUAR " 1340 NEXT 
1199 IF INKEY$="" THEN 1190 1350 END 
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Adaptación del BASIC de 
Microsoft al Commodore 


Habrás observado que existen pocas diferencias entre las órdenes que 
aparecen en los listados y las que acepta tu máquina. El problema surge 
cuando leemos programas para otros ordenadores y no sabemos si el 
nuestro aceptará estas órdenes. La diferencia es mínima porque siempre 
existe alguna instrucción similar y en el peor de los casos una pequeña 
subrutina que podemos poner en lugar de estas órdenes. 

En esta obra no encontrarás este tipo de problema pues, a continua- 
ción, se detalla la manera de solucionarlo. Sin embargo, el objetivo que 
se propone en este apartado es que utilices tu máquina, tu ordenador, con 
el máximo rendimiento y crees una parte propia en cada programa que 
marque tu personalidad. 

Las ideas principales de cada programa están ya expuestas: algoritmos 
y desarrollo básico del programa; es ahora el momento para que pongas tu 
huella. 


Las variables: habrás observado que en los listados se utilizan nombres 
de variables lo suficientemente expresivos para que no existan dudas a la 
hora de relacionar el contenido de dichas variables. Sigue este ejemplo al 
escribir un programa, pero ten cuidado: 

El Commodore interpreta solamente los dos primeros caracteres para 
tomar el nombre de la variable. Si a continuación no encuentras caracte- 
res que formen una palabra reservada para el BASIC, dará el temido 
? SYNTAX ERROR. 
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Deberás, pues, prestar especial atención a variables dentro de las cuales 
se pueda encontrar una cadena de caracteres idéntica a una palabra 
reservada, a partir siempre del segundo carácter. Veamos un ejemplo: 

La variable LETRA =0 no dará error porque aunque LET es palabra 
reservada, no se encuentra posterior al segundo carácter. Sin embargo, 
PALETO=0 dará un error de sintaxis porque la cadena LET se encuen- 
tra dentro de.la variable y posterior al segundo carácter, siendo una 
palabra reservada. 

Otro caso en el que podemos encontrar este error es cuando definamos 
palabras variables cuyos dos primeros caracteres sean iguales a palabras 
reservadas de dos caracteres, tal es el caso de la variable TOMAS (la 
palabra reservada es TO), o bien TIRO donde TI es una palabra reserva- 
da para el reloj del sistema. 

Por último, recordar que si alguna variable tiene los dos primeros 
caracteres igual a otra, el sistema las considerará como una misma. Ten 
cuidado y selecciona, por ejemplo, el primer y tercer carácter. 

Los datos que se introducen por medio de DATA deben ser escritos 
con especial atención. Respecto a las variables de cadena recuerda siempre 
que éstas se lean de sentencias DATA, que se tomarán todos los caracteres 
hasta encontrar una coma. Si deseas delimitar el campo de caracteres o 
bien introducir una coma dentro de la cadena, deberás escribir en la línea 
DATA toda la cadena entre comillas. 

Tu Commodore no necesita que se dimensionen matrices o arrays con 
menos de diez elementos. Sin embargo, es conveniente hacerlo para mayor 
claridad del programa; si lo deseas puedes eliminar las líneas donde 
aparezca DIM nombre de variable (A); donde A es un valor menor 
que 10. 

Veamos a continuación algunas sentencias que posiblemente encuentres 
en la mayoría de los listados y no entiendas, aunque pertenecen a un 
BASIC estándar: 


CLS es una acotación de clear screen y sirve para borrar toda la pantalla. 
Suele aparecer en las inicializaciones. Sustitúyelo por PRINT 
SHIFT+CLR. Aparecerá un corazón en inversa video, entre comillas, 
que es el resultado de apretar las teclas señaladas arriba a la vez. 


DEFINT A-Z sirve para definir como variables enteras todas aquellas 
cuyo nombre sea una letra de la A a la Z. Esto se hace con el fin de 
ahorrar bytes de memoria. En tu Commodore 64 no tendrás proble- 
mas, pero si deseas reducir a 2 bytes en vez de 4 el lugar reservado 
para una variable X, añade al nombre el símbolo %, igual que haces 
con el signo $ para las variables alfanuméricas. Como ventaja obten- 
drás el no tener que ejecutar la función INT(X) para representar esa 
variable; pero ten cuidado con las operaciones aritméticas en este tipo 
de variable pues, por ejemplo, 7/2 no te dará 3.5 sino 3, y como es de 
esperar este error lo acarreará en sucesivas operaciones. 


Líneas con más de 80 caracteres: Á veces te encontrarás con el proble- 
ma de líneas que a pesar de escribirlas en forma acotada ocupan más de 
dos renglones en la pantalla y tu ordenador no acepta la sentencia com- 
pleta al pulsar RETURN. Lo primero que se nos ocurre es dividir la 
sentencia en dos o más líneas cortándola por el signo. “*:”, o si se trata de 
PRINT cortar la cadena, añadir “;” y continuar en otra sentencia PRINT. 

A continuación se ofrece una tabla de conversión de listados de MSX 


a Commodore. 


MSX COMMODORE 
COLOR tinta,, POKE 646,X 
COLOR fondo, POKE 53281,X 
COLOR »,.borde POKE 53280,X 
AS$=INKEYS GET A$ 

CLS SHIFT + CLR 


Además, si encuentras en una sentencia IF..THEN GO TO número de 
sentencia, podrás eliminar GO TO. 

En las sentencias NEXT X podrás eliminar la variable X, aunque no es 
aconsejable por claridad. Si encuentras dos NEXT seguidos podrás resu- 
mirlos en uno solo: 


50 NEXT X 
60 NEXT Y 


se puede sustituir por 
50 NEXT X,Y 


prestando la máxima atención en el orden de los bucles anidados. 

A continuación se hace algún comentario sobre la tabla anterior. Es 
posible hacer el efecto de flash y de brillo escribiendo los programas en 
modo de color de fondo extendido y cambiando a lo largo del programa 
los colores de fondo2 y de fondo3. Consulta la guía de referencia. 

Las siguientes sentencias van seguidas de un número X que es un 
código de color. En la sentencia INVERSE X se puede hacer la sustitución 
por una sentencia PRINT y a continuación entre comillas el carácter RVS 
ON, que se consigue pulsando a la vez las teclas CTRL y 9. Si deseas 
añadir un color pulsa CTRL y el color elegido y después cierra las 
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comillas o bien continúa escribiendo lo que indique la sentencia PRINT 
más inmediata. 

A veces, puedes desear cambiar el color de escritura, según el valor de 
una variable del programa. Esto es lo que hace el comando INK X. Para 
lograrlo, puedes generar una matriz cuyo índice X direccione al valor del 
código CHR$ adecuado a cada color: 


10 DIM COLOR (15) 
20 FOR N=0 TO 15: READ A: COLOR(N)=A: NEXT N 
30 DATA 144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155 


Dimensiona y asigna los valores a esta matriz en la zona de inicializa- 
ción del programa y cuando quieras cambiar el color usa PRINT CHR$ 
(COLOR(X)) donde X es el código de color elegido. 

Una solución más elegante es hacer un POKE directamente en la 
posición de memoria donde el sistema guarda el color de escritura. La 
sentencia será POKE 646, X. 

Todos estos métodos cambiarán el color a partir de la posición actual 
del cursor. Si deseas cambiar el color de toda la pantalla deberás actuar 
sobre el mapa de color: 


FOR N=55296 TO 56319: POKE N, X: NEXT N 


Igual se hace para el color de fondo y del borde, en las posiciones 
indicadas en la tabla, con el código de color X. 

Deberás pues tener cuidado cuando se direccione un valor de la cadena 
para seleccionar el elemento adecuado. 

Cuando se espera una respuesta desde el teclado, encontrarás la sen- 
tencia GET AS. Esta sustituye a AS5=INKEY*$ pero a veces no se trata de 
coger un carácter del teclado, sino de ver si en ese momento se halla 
pulsada alguna tecla. Recuerda que el Commodore tiene una memoria o 
buffer donde va almacenando las teclas que se pulsan. Si deseas borrar esta 
memoria, ejecuta POKE 198,0 con lo que vaciarás el buffer. Pero si lo 
que pretendes es detectar si en ese momento se está pulsando la tecla 
adecuada, haz un PEEK(197) y compara el valor obtenido con el de la 
tecla que esperas esté pulsada. Un ejemplo lo vemos en muchos progra- 
mas donde se espera la elección entre “S” (sí) o “N” (no); se ha usado un 
INPUT pero puedes sustituirlo por: 


10 POKE 198,0 

12 GET 1I$ 

14 IF II5="S” THEN .... 

16 IF II$5="N" THEN ... 

18 IF II$5<>"“S“AND lI$<>"“N” THEN 12 


Otro caso que se da en los programas es la espera de que se pulse 
cualquier tecla para continuar la ejecución. Se suele utilizar 


10 GET A$: IF A$="" THEN 10 


Una solución más elegante es usar el comando WAIT que en el 
ejemplo siguiente espera hasta que se pulse espacio: 


10 WAIT 197,32 


Otro uso de la sentencia WAIT es meter un retardo que generalmente 
se hace con un bucle FOR-NEXT. Veamos una forma limpia de usar 
WAIT y las memorias del reloj del sistema: 


10 A=PEEK(TIJAND |: WAIT TI,1,A 


donde TI es un valor entre 160 y 162 (162 más rápido) e I es cualquier 
potencia de 2 menor que 256 (a mayor potencia, más lento es el retardo). 


Representaciones gráficas: A 'la hora de representar en pantalla un 
programa, es importante cuidar los detalles. Las variables deben aparecer 
centradas y ocupar siempre el mismo espacio. Si es un valor que se 
representa y debe ser visualizado según varía a medida que el programa 
avanza, es aconsejable no borrar toda la pantalla y volver a escribir todo, 
sino que es mejor escribir encima. Para ello, primero delimita siempre los 
números a visualizar con la función AS$=STR$S(A) que convierte el número 
A en una cadena de caracteres. Ahora elije el número de caracteres de esta 
cadena que desees visualizar: 1 y súmale 1 blancos por si la cadena fuese 
nula o menor que algún valor anterior: 


A$=LEFTS(A$S+" uf) 


El problema siguiente es escribir siempre la cadena en el mismo lugar. 
Hay varios métodos que equivalen a la sentencia 


LOCATE X,Y 


del MSX, donde X,Y son las coordenadas. 
El primer truco consiste en crear una cadena 


COLUMNAS$="<home><25 cursores abajo>" 
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en la parte de inicialización del programa y ejecutar después 
PRINT LEFTS(COLUMNAS,X):TAB(Y);¡A$ 


Observa que siempre se toma como referencia u origen la posición de 
arriba a la izquierda de la pantalla. 
Otra forma de hacer lo mismo es 


POKE 214,X: PRINT: PRINT TAB(Y);¡A$ 


Recuerda usar en estos casos la tecla HOME en vez de SHIFT CLR 
como sustitución de.la sentencia CLS, excepto en la inicialización y obser- 
varás una continuidad sorprendente. 

Ahora, derrocha imaginación, añade más gráficos, haz cada casilla del 
tablero de 3x3 caracteres, añadiendo un bucle, e incluso cambia estos 
caracteres y su color según la ficha que sea. Haz que los mensajes que 
visualiza el ordenador aparezcan siempre en la misma posición, por ejem- 
plo, con 


POKE 214,19: PRINT: 


y a continuación la sentencia que imprime el mensaje. Recuerda que 
puedes poner estos caracteres en inversa-video. Procura que aparezcan 
centrados en la pantalla y utiliza distintos colores, legibles frente al color de 
fondo. 

Por último, si un comentario solapa a otro, procura que este último 
sea de igual longitud o mayor para borrar así todos los comentarios 
anteriores. ¡Adelante! 


Sonido: Respecto a este apartado, son grandes las posibilidades que te 
ofrece tu ordenador. Hay libros exclusivamente dedicados al sonido, por 
lo que aquí te daremos una ligera idea de cómo activar el chip de sonido y 
crear algunas notas en tu programa que le hagan más atrayente. 

Lo primero que deberás hacer es borrar el chip de sonido. Esto se suele 
hacer en la inicialización con 


10 FOR N=54272 TO 54296: POKE N,O: NEXT N 


Ahora puedes seleccionar cualquiera de los pasos que prefieras: hacer 
variaciones sobre el volumen, sobre la forma de onda, sobre la duración 
de la nota, sobre la escala musical o bien sobre la envolvente de la onda 
(sostén relajación). Incluso, podrás combinar cualquiera de éstas. 

En nuestro ejemplo, seleccionamos sólo la VOZ 1 aunque tú puedes 


añadir las otras dos para tocar una segunda melodía, un acompañamiento 
o una serie de ritmos. 

Activaremos un ataque/decaimiento continuo para que la nota pueda 
sonar durante todo el programa: 


POKE 54277,0: REM ATAQUE/DECAIMIENTO 
POKE 54278,240: REM SOSTEN/RELAJACION 


Esto nos permitirá variar las notas a lo largo del programa. 
Activamos la forma de onda y el volumen: 


POKE 54276,33: REM FORMA DE ONDA DIENTE DE SIERRA 
POKE 54296,15: REM VOLUMEN MAXIMO 


Estos parámetros los puedes variar a lo largo del programa, aunque no 
es aconsejable variar el volumen porque produce efectos desagradables. 

Coloca a lo largo del programa las notas que quieras tocar en las 
posiciones: 


POKE 54272,B: REM NOTA DE BAJA FRECUENCIA 
POKE 54273,A: REM NOTA DE ALTA FRECUENCIA 


Los valores A y B los puedes obtener en ejecución de sentencias DATA 
o bien sonidos curiosos como resultado de obtener los valores A y B de 
cualquier algoritmo matemático. (Recuerda que estos valores han de estar 
comprendidos entre 0 y 255.) 

Veamos un ejemplo: 


B=RND(1)*256: A=RND(1)*256 


Si deseas apagar el sonido pon un cero en estas posiciones, o bien en el 
volumen o bien en la forma de onda. 


REM 404444 4020-26-10 16 36 46-26-4024 20 46 30-40-40 4040 202010 40 GOSUB 1300: 


REM e. .. REM ENTRADA DEL COMANDO DE DISPARO 
REM ** BASE ESPACIAL 2000 u.e GOSUB. 540 
REM +. GOSUB 1380: REM FUEGO INVASOR 
REM 404040260046 26 16-30-20 40 -20-20-30-24 16 20-20-2040 1020100 DIAS=DIAS+1 
GOSUB 2440: REM INICIALIZACION Bs="" 
GOSUB 190 : REM NOMBRE DEL CUADRANTE GOTO 30 
IF ACCIDENTE<S AND RND(1)<.15 THEN REM 4430-46 46-34-40 26-30-24 366-3636 -16-16-36 262616 1061 206 2 10 M0 MO 
GOSUB 1900 REM NOMBRE DEL CUADRANTE 
GOSUB 340 : REM ESTADO DE LA NAVE PRINT CHR$(147)3 PRINT: PRINT 
GOSUB 700 : PRINT "::23: ESTAS EN EL SECTOR DE *5 
REM INFORMACION DE PROXIMIDAD P=INT(S1/8+.5) 
GOSUB 1050: Q=INT (S2/8+.5) 
REM ENTRADA DEL MOVIMIENTO IF P<1 THEN P=1 
80 IF B$="N" THEN 120 IF Q<1 THEN Q=1 
90 GOSUB 190 IF P>9 THEN P=8 
100 GOSUB 5340 IF Q>8 THEN Q=8 
110 GOSUB 700 IF P>4 THEN 380 
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290 IF Qui THEN PRINT “PEGASO"5 
300 IF Q=2 THEN PRINT “ACUARIO"3 
310 IF 0O=3 THEN PRINT "ERIDANO"$ 
320 IF Q=m4 THEN PRINT "HIADAS*5 
330 IF Q=3 THEN PRINT "CAN MAYOR*3 
340 IF Qué THEN PRINT “OSA MAYOR”3 
350 IF Q=7 THEN PRINT "HERCULES"; 
360 IF Q=8 THEN PRINT "CEFEO”3 

370 GOTO 460 

380 IF Q=1 THEN PRINT “DORADO”3 
390 IF Q=2 THEN PRINT “TRIANGULO”3 
400 IF Q=3 THEN PRINT "AURIGA"; 
410 IF Q=4 THEN PRINT "NUBECULA MAYOR”3 
420 IF Q=5 THEN PRINT “ESCORPIO"3 
430 IF Q=6 THEN PRINT "CUERVO"; 
440 IF Q=7 THEN PRINT "SAGITARIO"; 
450 IF Q0=8 THEN PRINT "CISNE"5 

460 PRINT 

470 PRINT ” 

rr mr ss rn 

480 PRINT "FECHA DEL DIARIO DE A BORDO: " 


3DIAS: PRINT 
PRINT "NAVES ENEMIGAS ALCANZADAS 
3AK 


PRINT "eV TUS COORDENADAS GALACTICA 
S:"3S15S2 
510 PRINT * 
320 RETURN 
S30 REM 44044100046 40 06-20-40-46-40-10-0 06-16-10 20-26-2602 20-26-10 40-20-20 10202640 
540 REM ESTADO DE LA NAVE 
550 PRINT TAB(10)5CHR$ (18) 5 

“ ENERGIA TOTAL: "3ENERG 
560 IF ENERG>1 THEN 610 
570 PRINT: PRINT: PRINT "HAS AGOTADO TUS 
DEPOSITOS DE ENERGIA" 
580 PRINT: PRINT "TU VIAJE HA TERMINADO” 
590 PRINT: PRINT “HAS SOBREVIVIDO DURANT 
E”3 DIAS-10003 "DIAS ESTELARES" 
PRINT: PRINT "HAS DESTRUIDO" 5 AK; 
“NAVES INVASORAS”":2 GOTO 1830 
IF ENERG>50 THEN 670 
FOR H=1 TO 3 
PRINT TAB(H*3)3"> PELIGRO <” 
NEXT H 
PRINT “RESERVAS DE ENERGIA: *BAJAS+" 
660 PRINT: PRINT “DEBES ENCONTRAR PRONTO 
UNA BASE ESPACIAL" 
670 FOR T=1 TO 1000: NEXT T 
680 RETURN 
6790 REM 404000000 40-20-40-0-00-40-20-40-40 20-20-40 30-20-26 90 -06-00-20-20 40-20-10 200040 
700 REM RADAR 
710 P=200: A1=200: AB=200: PROX=0 
720 PRINT:2PRINT"QUIERES UTILIZAR EL RADA 
R (S/N) *3 
730 INPUTCS 
740 IF C8<>"N" AND C$<>"S” THEN 730 
730 IF CS$="N" THEN RETURN 
760 ENERG=ENERG-. 25 
763 PRINT CHRS (147) 
770 PRINT: PRINT"> ATENTO AL RADAR ...” 
773 PRINT3 PRINT TAB(S)3 
780 X1=S1-8: X2=S1+8: Y1=S2-9: Y2=S2+8 
790 IF X1<1 THEN X1=1 
IF X1>64THEN X1=64 
IF Y1<1 THEN Yi=1 
IF Y1>64THEN Y1=64 
IF X2<1 THEN X2=1 
IF X2>64THEN X2=64 


IF Y2<1 THEN Y2=1 

IF Y2>64THEN Y2=64 

FOR X=X1 TO X2 

PRINT TAB(S)3">"3 

FOR Y=Y1 TO Y2 

P=SOQR ( (X-S1) + (X-S1)+(Y-S52) + (Y-S2)) 
P=INT (P*1000) /1000 

920 IF A(X,Y)=NA OR A(X,Y)=0 THEN 960 
930 IF A(X,Y)=TA THEN PROX=P2 PRINT".... 
+ BASE ESPACIAL 2000 DETECTADA '!.....” 
940 IF A(X,Y)=AL AND P<A1 THEN Al=P3 
PRINT "M"32 GH=X3 GJ=Y 

IF A(X,Y)=SB AND P<AB THEN AB=P1 
PRINT "B";5 

NEXT Y 

NEXT XxX 

PRINT 

IF A1=200 THEN 990 

PRINT: PRINT “NAVE ENEMIGA MAS CERCA 


890 
900 
910 


950 


NA1" 

986 PRINT" LECTURA DEL RADAR”5A1 

990 IF AB=200 THEN 1000 

995 PRINT: PRINT “BASE ESPACIAL MAS CERC 

ANA: * 

996 PRINT" LECTURA DEL RADAR”;AB 

1000 IF PROX=0 THEN 1010 

1005 PRINT: PRINT "PROXIMIDAD DE LA BASE 
ESPACIAL 2000:  ”sPROX 

1006 PRINT TAB(8)5”"ESTA DENTRO DE ALCANC 

E” 

1010 IF PROX<>0 THEN 1020 

1015 PRINT: PRINT "LARGO ALCANCE, FIJADO 
PARA LA B.E. 2000" 

1016 PRINT TAB(8)5100+(S1-B1)+(S2-B2) 
1020 FOR T=1 TO 1000: NEXT T 

1030 RETURN 

1040 REM 40.40 0040 40-246 442% 10-00 30 40-40 20 20-240 10 10 102100 201000 0 
1050 REM ENTRADA DEL MOVIMIENTO 

1060 PRINT:PRINT"4V% TUS COORDENADAS GAL 

ACTICAS: "381382 

1070 PRINT: PRINT "QUIERES MOVER LA NAVE 
(S/N) "5 

1080 INPUT BS 

1090 IF BS<>"N" AND B$<>"S"THEN 1080 
1100 IF BS="N" THEN RETURN 

1110 ENERG=ENERG-2. 725 

1120 PRINT TAB(6)5 

“EN QUE DIRECCION (N,S,E,0) ”; 
INPUT AS 

IF AS<>"N" AND AS<>"S” AND AS<>"O" 
AND AS<>"E"THEN 1130 

IF AS="N" AND S1=1 THEN RETURN 
A(S1,52)=NA 

IF AS="0” AND S2=1 THEN RETURN 

IF AS="E" AND S2=64 THEN RETURN 

A(S1,S2)=0 
IF AS="N" 
IF AS="S" 


1130 
1140 


1150 
1160 
1170 
1180 
1190 
1200 . 
1210 
1220 
1230 


THEN S1=S1-1 
THEN S1=S1+1 
IF AS="0" THEN S2=S2-1 
IF AS="E"” THEN S2=S2+1 
1240 IF A(S1,S2)<>AL THEN 1250 
1245 PRINT "HAS ATERRIZADO EN UNA NAVE E 
NEMIGA !!":ENERG=0:FOR T=1 TO 1000:NEXT 
1247 RETURN 
1250 IFA(S1,S2)<>SB THEN 1260 
1255 PRINT “HAS ATERRIZADO EN UNA BASE E 
SPACIAL": ENERG=ENERG+55 
1260 IF S1=B1 AND S2=B2 THEN 1700: 
REM BASE ESPACIAL LOCALIZADA 
1270 FOR T=1 TO 1000: NEXT T 
1280 RETURN 
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1290 REM 414343606 36 36 46-46 36-24 36-06-36 36 1046 1040 1010 
1300 REM COMANDO DE DISPARO 
1310 PRINT: PRINT "QUIERES DISPARAR FOTO 
NES (S/N) "3 
1320 INPUT As 
1330 IF AS<>"N" AND A$<>"S”"THEN 1320 
1340 IF AS="N" THEN RETURN 
1350 PRINTTAB(8)3”CON QUE INTENSIDAD (2- 
80) ” 
1360 INPUT K 
1370 IF K<2 OR K>8 THEN 1360 
1380 ENERG=ENERG-K+2.5 
1390 PRINT: PRINT"2::: EN QUE DIRECCION 
(N,S,E,0) "3 
1400 INPUT As 
1410 IF AS<>"N" 
AND AS<>"E"” 
1420 M=S1:N=52 
1430 FORJ=1TO K 
1440 PRINT "SECTOR ALCANZADO: “J5 
1450 IF AS="N" THEN MmM-1 
1460 As="S" THEN M=M+1 
1470 A$="0"” THEN N=N-1 
1480 AsS="E" THEN N=N+1 
1490 M<1 ORM>64 OR N<1 OR N>64 THEN 1 
530 
1500 IF A(M,N)<>AL THEN 1510 
1505 PRINT: PRINT "NAVE ENEMIGA DESTRUID 
A EN"3M5N 
1506 AK=AK+1: A(M,N)=0: GH=D: 
GOTO 1540 
1510 IF A(M,N)<>SB THEN 1520 
1515 PRINTa PRINT"HAS DISPARADO CONTRA U 
NA BASE AMIGA !"” 
1516 A(M,N)=0: ENERG=ENERG/2: GOTO 1540 
1520 IF M<>B1 OR N<>B2 THEN 1530 
1525 PRINT "HAS DESTRUIDO LA BASE ESPACI 
AL 2000 !":z ENERG=0: GOTO 1810 
1530 PRINT"...NADA " 
1540 NEXT J 
1550 FOR T=1 TO 1000 3 NEXT T 
1560 RETURN 
1570 REM 446000614 46 26-46-16 16 16 26-36 16 16-26-10 36 26 26 26 26-30-10 24 400 M0 40 46 
1580 REM FUEGO INVASOR 
1590 IF GH=0 OR GJ=0 OR RND(1)>.5 THEN 
RETURN 
1600 PRINT "INVASORES SITUADOS EN"3GH5GJ 
2PRINT "NOS ESTAN DISPARANDO CAPITAN” 
1610 FOR T=1 TO 1000 : NEXT T 
1620 R=INT(RND(1)+4) 
1630 IF R=0 THEN PRINT 
LADO EL TIRO !!” 
1640 IF R<>1 THEN 1650 
1645 PRINT "EL INVASOR 
TRIBOR": 
1646 PRINT:* PRINT TAB(7)5 
"DESPERFECTOS MENORES" 
1647 ENERG=ENERG-4. 75 
1650 IF R<>2 THEN 1660 
1655 PRINT "EL INVASOR HA DISPARADO CONT 
RA LA SEC - CION DE LA TRIPULACION” 
1656 PRINT: PRINT TAB(7)5 
“DESPERFECTOS DE CONSIDERACION” 
1657 ENERG=ENERG-18. 25 
1660 IF R<>3 THEN 1670 
1565 PRINT "EL INVASOR HA DESTRUIDO EL P 
UENTE DE MANDO" 
1666 PRINT: PRINT TAB(7)3 
"DESPERFECTOS GRAVES" 
1667 ENERG=ENERG-30.535 
1670 FORT=1 TO 1000 3 NEXT T 


AND AS<>"S" 
THEN 1130 


AND A$<>"0" 


' 


GJ=0: 


TAB(7)5"**HAN FAL 


NOS HA DADO EN ES 


RETURN 
A iii 


1700 REM FINAL DE LA BUSQUEDA 

1710 PRINTz PRINT 

1720 PRINT _"--—u-—-— 
PR crm 

1730 PRINT TAB(8)3"LO HAS LOGRADO !" 
1790 PRINT 
1750 PRINT "HAS ENCONTRADO LA BASE ESPAC 
IAL 2000" 


1760 GENTE=1000+INT(RND (1) 1000) 
1770 PRINT 


1780 PRINT "AUN HAY"5GENTE; "RESIDENTES Y 
IVOS EN LA” 
1790 PRINT 

N POR EL " 

1800 PRINT TAB(8)5 "SUERO QUE LES HAS TRA 
IDO" 

1BLO PRI 


"BASE ESPACIAL QUE SE SALVARA 


PRINT"TU PUNTUACION ES :*;3 

PRINT INT (GENTE+DIAS+ 
ENERG*AK-1000) 

END 

PRINT" === 


1860 PRINT "LAMENTABLEMENTE NO HAS PODID 

O ENCONTRAR" 

1870 PRINT "LA BASE ESPACIAL 2000, QUE E 

STA SITUADA EN"B15B2 

1880 GOTO 1810 

1990 REM 4614646 34 46 34 96-20 46 06-46-46 96 16-36-30 40-26 34 24-46-36-40-0 2010401000 
1900 REM CONTRATIEMPOS 

1910 ACCIDENTE=ACCIDENTE+1 

1920 PRINT"NRHARARARRARARARAAIAA AI 

HIAHHANRHVIDA "5 

1930 PRINT"VVVVVUVVVVVVVVWVVVVVVVVVVVVVUV 

VUVVVUVUVUVY" 

1940 ON ACCIDENTE GOSUB 1980,2080, 22000, 

2350,2510 

1950 FOR T=1 TO 1000 ¿NEXT T 

1960 RETURN 

1970 REM 3046:04 06 .96-0-44-20-06-04-06-06 0624-06-0 19-06-06-14-30-26-0-449614-0-40. 46 
1980 PRINT "TU NAVE HA ENTRADO EN UNA ZO 

NA DE EMISI-" 

1990 PRINT "SION DE RAYOS GAMMA SURGIDOS 
DE UN AGU-" 

2000 PRINT"JERO NEGRO... ” 

2010 FOR T=1 TO 1000: NEXT T 

2020 PRINT " LA NAVE SE HA DESVIADO A CA 
USA DE LAS EMISIONES. ” 

2030 S1=S1+1:S52=S2-1 

2040 IF S1>64 THEN S1=64 

2050 IF S2<1 THEN S2=1 

2060 RETURN 

2070 REM 4046 461644 36 46 26 16 36 16-24 96 26 26-26-20 46 464 16 30 16 30-44 46 2440 40 0 
2080 PRINT"EL INFORME DE NAVEGACION DETE 
CTA UNA AC-"3 

2090 PRINT " TIVIDAD ATOMICA ANORMAL DE 
MAGNITUDES ” 


2100 PRINT " 4,8 Y 10,13 PROCEDENTES DE 
L ASTEROIDE" 

2110 PRINT *” KAPTEIN, APARENTEMENTE DI 
RIGIDA HACIA"5 

2111 PRINT ” RAYOS UV. A Y B..." 


2120 FOR T=1 TO 1000: NEXT T 

2130 PRINT " ESTO SIGNIFICA QUE NUESTRO 
RADAR PUEDE" 

2140 PRINT "PERDER PRECISION. " 
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2150 
2160 
2170 
2180 
2190 
2200 


B1=B1+2: B2=B2-2 

IF B1 >65 THEN B1=64 

IF B2<1 THEN B2=1 

RETURN 

REM 4436163646 36-26 26-26 3636-16 3636 36 36-60 M6 366 EH 0 ME IE 

PRINT “SENALES RECIBIDAS DE LA NEBU 

LOSA DE CA-" 

2210 PRINT " 

ECS DE DIS-" 

2220 PRINT " 
IA EXCESIVA" 

2230 PRINT " 
OLVO INTER- 
2240 FOR T=1 
2250 PRINT ” 
LA ENERGIA” 
2260 PRINT "PARA FORTALECER NUESTROS ESC 
UDOS PROTEC-TORES. ” 

2270 FOR T=1 TO 500: NEXT T 

2280 PRINT " RESERVAS DE ENERGIA"; ENERG 
2290 ENERG=.78*+ENERG 

2300 FOR T=1 TO 3001 NEXT T 

2310 PRINT " DESPUES DE REFORZAR LOS ES 
CUDOS, LA ” : 
2320 PRINT "ENERGIA EN LOS DEPOSITOS ES" 

3 ENERG 

2330 RETURN 

2340 REM 44436 46-44 40 46 26 36 06 30-20 24 40 26400 30-00-20 36 30 46 20 MIDA 
2350 PRINT “EL CONTROL INDICA UNA FORMAC 
ION PROTOGA-"5 


BEZA DE CABALLO, A 337 PARS 


TANCIA, NOS INDICA UNA MED 


DE SODIO EN UNA NUBE DE P 
ESTELAR. " 
TO 1000: NEXT T 
DEBEMOS UTILIZAR EL 12% DE 


2360 PRINT " LACTICA EN LA NEBULOSA M.16 

. LA REAC- *” 

2370 PRINT " CION PROTON-PROTON GENERA 

TEMPERATU- " 

2380 PRINT " RAS INTERNAS DEL ORDEN DE 
17 X 106 " 


2390 PRINT ” 
2400 PRINT " 
DAMENTE DE ESTA ZONA." 

2410 FOR T=1 TO 1000: NEXT T 

2420 PRINT TAB(8)5"CORRIGE EL CURSO 
2430 FOR T=1 TO 1000: NEXT T 

2440 S1=S1+INT(RND(1)+*3) 

2450 S2=S2+INT(RND(1)+*3) 

2460 IF S1>64 THEN S1=64 

2470 IF S2>64 THEN S2=64 

2480 FOR T=1 TO 1000: NEXT T 

2490 RETURN 

2500 REM 43646 46-26-44 26-26 26-16-16 36 16 86-26 210 HE 06 0H DEA 66 0 Hd 
2510 PRINT "PELIGRO. ..PELIGRO..." 

2520 FOR T=1 TO 300: NEXT T: 

IF RND(1)>.7 THEN 2510 

PRINT "AGUJERO NEGRO DENTRO DE”5 
RND (1)*10005 "UNIDADES, " 


GRADOS KELVIN...*" 
TENEMOS QUE ALEJARNOS RAPI 


2530 


S REM 
6 REM 
10 REM 


40 86 46 26 06 0d 46-00 26 40 20 0 00 26 26 20 80 A 3046 20 20 46-40 0 40 40 40 00 40 

.. .. 

** LOS VIAJES DE MAGALLANES +. 

11 REM «+. +. 

A ido 

20 GOSUB 2870: REM INICIALIZACION 

30 PRINT CHR$(147)3 PRINT 

40 T=INT(RND(1)*3) 

SO SEMANA=SEMANA+1 

60 VIVERES=INT (VIVERES-COMIDO*+HOMBRES) 

70 IF VIVERES<1 THEN 280 

80 IF RND(1)>.74 THEN 
HOMBRES=HOMBRES-INT (RND (1) +3) 


2540 PRINT " EN DIRECTION"; 

RND (1) *10005 "FRONTAL "5 RND(1)+*34 
2550 FOR T=1 TO 500: NEXT T 
2560 PRINT: PRINT “EL EFECTO DE LA GRAVE 
DAD EN LAS LENTES *” 
2570 PRINT " ESTA CAUSANDO UNA GRAN DIST 
ORSION EN * 
2575 PRINT ” 
AL COMO 7 
2580 PRINT " EL VISTO AL INICIARSE EL 
PROCESO: "5 TAB (5) 5 INT(RND(1) *100) /1000 
2590 M=S2: S2=S1: Si=M 
2600 PRINT “CAEMOS A GRAN VELOCIDAD...”5 
2610 IF RND(1)>.4 THEN 2600 
2615 PRINT 
2620 RETURN 
2630 REM 40444044 44 44 24-36 2022000 0 E 86 UE HE IO 0 0 0 0 
2640 REM INICIALIZACION 
2650 PRINT CHRS (5) 5CHRS (147) 5 
26353 POKE 53280,0: POKE S3281,0 
2660 PRINT CHR$(18)5TAB(10)5 
“ ESPERE POR FAVOR " 
DIM A(64,64) 
AL=ASC("M")2 
AK=0 : 
NA=ASC("N")a2 
SB=ASC("B"): 


LAS IMAGENES GALACTICAS, T 


2680 
2690 
2700 
2710 
2720 
2730 


REM _ INVASORES 

REM INVASORES MUERTOS 
REM TU NAVE 

REM BASE ESPACIAL 
TA=ASC("X"): REM 'OBJETIVO! DEL 
JUEGO: BASE ESPACIAL 2000 
DIAS=1000 

ENERG=300 

REM +s* CREACION DEL UNIVERSO e 
FOR M=1 TO 300 

POKE 1104+920*RND(1),46 

FOR N=1 TO 2 

C=INT(RND(1)+64)+1 


2740 
2750 
2760 
2770 
2780 
2790 
2800 


2810 D=INT(RND(1)*64)+1 

2820 IF N=1 THEN A(C,D)=AL 

2830 IF N=2 THEN A(C,D)=SB 

2840 NEXT N 

2850 NEXT M 

2860 REM «**.. BASE ESPACIAL 2000 +s 
2870 B1=INT(RND(1)+64)+1 

2880 B2=INT(RND(1)*64)+1 

2890 A(B1,B2)=TA 

2900 REM — ** POSICION INICIAL NAVE +. 
2910 S1=INT(RND(1)+64)+1 

2920 S2=INT(RND(1)*64)+1 

2930 IF S1=B1 OR S2=B2 THEN 2910 
2940 A(S1,S2)=NA 

2950 GENTE=0 

2960 GH=0: GJ=0 

2970 ACCIDENTE=O 

2980 RETURN 


90 PRINT "ono ¡So 
“ 


100 IF T<>0 THEN 110 

102 PRINT " CAPITAN MAGALLANES, ESTE ES 
EL DIARIO" 

105 PRINT "DE NAVEGACION DEL VICTORIA CO 
RRESPONDIENTE A LA SEMANA" 5 SEMANA 
110 IF T<>1 THEN 120 

112 PRINT * CAPITAN MAGALLANES, 
EL LIBRO ” 

115 PRINT "DE A BORDO CORRESPONDIENTE A 
LA SEMANA ";SEMANA; "DE NAVEGACION. ” 

120 IF T<>2 THEN 130 


ESTE ES 


O 0 0: 0 0.0 0 507 0. 100,0: 0-0) 0 0.00 


o. 0 O O 


oOoO0 OOOO OOO OO OOOO OAOoOmsO 
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122 PRINT " CAPITAN MAGALLANES, AQUI TI 
ENES EL IN-"3 
125 PRINT "FORME DE LA SEMANA"; SEMANA; 


"DE NAVEGACION. " 

IF PRT=1 OR PRT=9 THEN 540 
HOMBRES=INT (ABS (HOMBRES) ) 

PRINT TAB(8)5"* CUENTAS CON"5 HOMBRES 
5 "HOMBRES +" 


130 
140 
150 


160 IF HOMBRES>9 THEN 170 

165 PRINT " ESTA TRIPULACION NO ES SUFIC 

IENTE PARA" 

167 PRINT "EL VICTORIA, ASI QUE DEBEMOS 

QUEDARNOS " 

1658 PRINT "AQUI EN "5 AS(PRT): GOTO 640 

70 PRI A 

180 T=INT(RND(1)*3.5) 

190 IF ASTRO<>0 AND CUADRANTES<>0 THEN 
200 

195 PRINT "NO DISPONES DE NINGUN INSTRUM 


ENTO DE NA-VEGACION 

196 PRINT " ESTO ES EL FINAl...oooo.o..” 

GOSUB 31901 GOTO 440 

IF T=0 THEN PRT=PRT+1: 

PRINT “ESTAMOS EN "5AS(PRT) 

W=INT(RND (1)2) 

IF INT(VIVERES/ (COMIDO*HOMBRES) )<1 

THEN 280 

IF T<=0 THEN 260 

PRINT: PRINT TAB(2)5 

“LA BODEGA TIENE COMIDA PARA"; 

PRINT INT(VIVERES/ (COMIDO*+HOMBRES) ) 5 

"SEMANAS. " 

240 IF W=1 THEN PRINT: PRINT TAB(8)5 

GUIMOS NAVEGANDO. .."z GOTO 460 

250 IF W=0 THEN PRINT: PRINT TAB(8)5 

ESTRO VIAJE CONTINUA. .."z GOTO 460 

260 IF HOMBRES>9 THEN 270 

265 PRINT "TU TRIPULACION ES ESCASA PARA 

EL VICTO-" 

267 PRINT "RIA, ASI QUE HEMOS DE QUEDARN 

OS AQUI EN "5AS(PRT): GOTO 640 

270 IF VIVERES>1 THEN 340 

280 PRINT TAB(5)5 " SE HAN AGOTADO LOS V 

IVERES !": GOSUB 3190 

290 PRINT TAB(5)53 " TODOS TUS HOMBRES HA 

N MUERTO..."z 

300 PRINT TAB(8); 

MURIENDO. ..": 

310 GOSUB 3190 

320 PRINT: PRINT TAB(3)5 

E TODO HAYA ACABADO ASI" 

330 PRINT TAB(S5)5 "ESTO ES LO QUE HAY A 

BORDO: “:PRINT:GOTO 640 

340 PRINT: PRINT "LAS ARCAS CONTIENEN"; 
DINERO; "DOBLONES DE ORO." 

350 PRINT: PRINT "EN LA BODEGA HAY"; 
VIVERES; "CAJONES DE VIVERES" 

360 PRINT " SUFICIENTES PARA"3 INT(VIVERE 

S/ (COMIDO*+HOMBRES) ) 5 "SEMANAS. " 

370 PRINT: PRINT "INTRODUCE TU OPCION: " 

380 PRINT: PRINT TAB(4)3 

“1- INSPECCIONAR LAS BODEGAS.” 

PRINT: PRINT TAB(4)3 

"2- NEGOCIAR CON LOS NATIVOS. ” 

PRINT: PRINT TAB(4)5 

"3- ZARPAR RUMBO AL PROXIMO PUERTO. " 

IF PEEK(197)<>64 THEN 395 

POKE 198,0 

GET BS 

IF Bs<"1" OR B$>"3" THEN 410 


200 


210 
220 


230 
235 


236 
“SE 


“NU 


“ TU TAMBIEN TE ESTAS 


"ES UNA PENA QU 


390 
392 


395 
400 
410 
420 


430 
440 
430 
460 
470 
474 


IF B$="1"” THEN GOSUB 740 

IF B$="2" THEN GOSUB 940: GOTO 510 

REM + INCIDENTES +... 

RN=INT(RND(1)+21) 

IF RN<>1 THEN 480 

ESC=ESC+13 IF ESC=3 THEN RN=21 

GOTO 480 

GOSUB 2130 

IF RN<>2 THEN 490 

NAUFRAGIO=NAUFRAGIO+1: 

IF NAUFRAGIO=2 THEN RN=3: GOTO 490 

GOSUB 2230 

IF RN<>3 THEN 300 

MOTIN=MOTIN+1: IF MOTIN=2 THEN RN=4: 

GOTO 3500 

GOSUB 2600 

IF RN<>4 THEN 510 

PIRATAS=PIRATAS+1: 

THEN 460 

GOSUB 2600 

GOSUB 3190 

GOTO 30 

REM 4046116 

REM PUERTO ESPANOL 

550 IF PRT=9 THEN 610: REM FIN 

560 PRINT: PRINT "HEMOS ZARPADO DE LAS C 

¡'OSTAS ESPANOLAS " . 

570 PRINT "CON UNA TRIPULACION DE”; HOMBR 
ES; "HOMBRES. ” 

580 GOSUB 3190 

590 PRINT CHR$(147): 
600 T=0: GOTO 200 
610 REM se1 401% FIN DEL VIAJE 

620 PRINT "BIEN HECHO, CAPITAN, " 
630 PRINT "HAS CONSEGUIDO REGRESAR SANO 
Y SALVO A "3 CHR$(210) 

635 PRINT "ESPANA." 

640 PRINT: PRINT "HAS TERMINADO EL VIAJE 
CON: ": PRINT 

645 PRINT DINERO; "DOBLONES DE ORO," 

650 PRINT TELA; "PRENDAS DE TELA, "sz 

PRINT ASTRO; "ASTROLABIOS, ” 

PRINT SAL5"SACAS DE SAL, "zx 

PRINT HIER;"LINGOTES DE HIERRO, " 

PRINT POLV; "BARRILES DE POLVORA, ” 

PRINT CUADRANTES; "CUADRANTES. ” 

PRINT: PRINT TAB(8)5 

"TU PUNTUACION ES”5 

691 SC=(TELA+2*ASTRO+SAL+2HIER+3%POLV+7 

*CUADRANTES) + (SEMANA*+HOMBRES+D INERO) 

692 PRINT INT(SC/62)5 "PUNTOS. ” 

700 PRINT3 PRINT TAB(5)5"EL VIAJE HA DUR 

ADO” 3 SEMANA5 "SEMANAS. ” 

710 IF PEEK(197)<>64 THEN 710 

720 END 

730 REM 4044 40-24-26-10-26 26-24-06 36-46-26 46 16-36-1-20-40 16-26-00 36-26 40-40-46 24-40-4046 

740 REM INSPECCION DE LAS BODEGAS 

750 BOTIN=0 

760 PRINT "EN LAS BODEGAS ENCUENTRAS: ”: 

PRINT 

770 1F TELA<=0 THEN 780 

775 PRINT TELA; "PRENDAS DE TELA QUE VALE 

N"3TELA*TDINERO; "DOBLONES DE ORO; ” 

776 BOTIN=BOTIN+TELA*+TDINERO 

780 IF ASTRO<=0 THEN 790 

785 PRINT ASTRO; "ASTROLABIOS QUE VALEN"3 

ASTRO+ADINERO; "DOBLONES DE ORO; " 

BOTIN=BOT IN+ASTRO*ADINERO 

IF SAL<=0 THEN 800 

PRINT SAL; "SACAS DE SAL QUE VALEN"; 

SAL+*SDINERO; "DOBLONES DE ORO; " 


475 
480 
484 


486 
490 
494 


495 
500 
504 IF PIRATAS=3 
506 
510 
520 
530 
540 


AAN 


PRINT: PRINT 


JAI 


660 


670 
680 
690 


786 
790 
795 
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796 BOTIN=BOTIN+SAL*SDINERO 

800 IF HIER<=0 THEN 810 

805 PRINT HIER;"LINGOTES DE HIERRO QUE Y 

ALEN"5HIER*HDINERO; "DOBLONES DE ORO; ” 
806 BOTIN=BOT IN+HIER*HDINERO 

810 IF POLV<=0 THEN 820 

815 PRINT POLV; "BARRILES DE POLVORA QUE 

VALEN"5POLV*PDINERO; "DOBLONES DE ORO; "” 

816 BOTIN=BOTIN+POLV*PDINERO 

820 IF CUADRANTES<=0 THEN 830 

825 PRINTCUADRANTES; "CUADRANTES QUE VALE 

N"3CUADRANTES+*CDINERO; "DOBLONES DE ORO" 
826 BOTIN=BOT IN+CUADRANTES*CDINERO 

830 PRINT: PRINT “" EL VALOR TOTAL DE LA 
MERCANCIA ASCIEN-DE A"BOTIN; 

835 PRINT "DOBLONES DE ORO. "sz PRINT: 


PRINT 
836 PRINT " INTRODUCE TU OPCION :": 
PRINT 

840 PRINT " 1- PARA COMERCIAR CON LOS 
NATIVOS. "2 PRINT 

850 PRINT " 2- PARA CONTINUAR EL VIAJ 

Es ”» 

860 IF PEEK(197)<>64 THEN 860 

865 POKE 198,0 

870 GET Bs 

880 IF Bs<"1" OR B$>"2" THEN 870 


IF Bsa"1" 
Bs="3" 
RETURN 
END 

REM 10404020 40-40 26 26-040 40-00-0000 20-20 20-20 40-20 20 20 40-20-0040 40 20 004046 
REM COMERCIO 


PRINTS 


THEN B$="2": RETURN 


960 PRINT "CAPITAN, QUE MERCANCIAS VAMOS 
A VENDER ? ” 
970 IF PEEK(197)<>64 THEN 970 
980 IF TELA>O THEN 
PRINT " 1- PRENDAS DE TELA." 

990 IF ASTRO>O THEN 
PRINT *" 2- ASTROLABIOS. " 

IF SAL>O THEN 

PRINT " 3- SACAS DE SAL." 

IF HIER>O THEN 

PRINT " 4- LINGOTES DE HIERRO. "” 

IF POLV>O THEN 

PRINT " 5- BARRILES DE POLVORA. " 

IF CUADRANTES>0 THEN 

PRINT " 6- CUADRANTES. " 

PRINT " 7- PARA COMPRAR A LOS NATIV 


1000 
1010 
1020 
1030 


1040 
os." 
1050 


PRINT " 8- PARA CONTINUAR EL VIAJE. 


1060 
1065 POKE 198,0 
1070 GET AS$ 
1080 IF AS<"1" OR A$>"8" THEN 1070 
1090 ON VAL(A$) GOTO 1200,1310, 1420, 1530 
» 1640, 1750, 1860, 1190 
GOTO 1070 
GOSUB 3190 
RETURN 
REM +* VENTA DE PRENDAS DE TELA +. 
1210 IF TELAX1 THEN 1180 
1220 PRINT "TENEMOS"5 TELA; "PRENDAS DE TE 
LA POR VALOR DE"TDINERO"CADA UNA. ” 
1230 PRECIO=INT(TDINERO+RND (1))2 
IF PRECIO<TDINERO/2 THEN 1230 
1240 PRINT "LOS NATIVOS OFRECEN"3PRECIO; 


PRINT 


1170 
1180 
1190 
1200 


"POR PRENDA. " 


1250 PRINT TAB(8)5 “CUANTAS QUIERES VENDE 
Ros 

1260 INPUT K 

1270 IF K>TELA THEN 1260 

1280 DINERO=DINERO+K*PRECIO 

1290 TELA=TELA-K 

1300 GOTO 950 

1310 REM se VENTA DE ASTROLABIOS ws. 


1320 IF ASTRO<1 THEN 1180 

1330 PRINT "TENEMOS"3ASTRO; "ASTROLABIOS 
POR VALOR DE”"3ADINERO; “CADA UNO. ” 
1340 PRECIO=INT(ADINERO+RND(1)): 
IO<ADINERO/2 THEN 1340 

1350 PRINT "LOS NATIVOS NO OFRECEN MAS D 
E"3PRECIO; "POR CADA UNO. ” 

1360 PRINT TAB(8)5 "CUANTOS QUIERES VENDE 
Ro 
1370 
1380 
1390 
1400 
1410 
1420 


IF PREC 


INPUT K 
IF K>ASTRO THEN 1370 
DINERO=D INERO+K*PRECIO 
ASTRO=ASTRO-K 
GOTO 950 
REM + VENTA DE SAL «» 
1430 IF SAL<1 THEN 1180 
1440 PRINT "TENEMOS"3SAL;"SACAS DE SAL P 
OR VALOR DE"5¿SDINERO; "CADA UNA. " 
1450 PRECIO=INT(SDINERO*+RND (1))2 

IF PRECIO<SDINERO/2 THEN 1450 
1460 PRINT "LA MEJOR OFERTA DE LOS NATIV 
OS ES DE"5PRECIO; "POR SACA." 
1470 PRINT TAB(8)5 "CUANTAS QUIERES VENDE 
Rv 
1480 
1490 
1500 
1510 
1520 
1530 


INPUT K 

IF K>ASTRO THEN 1480 
DINERO=DINERO+K*PRECIO 

SAL=SAL-K 

GOTO 950 

REM * VENTA DE LINGOTES DE HIERRO + 
1540 IF HIER<1 THEN 1180 

1550 PRINT "TENEMOS";HIER;"LINGOTES DE H 
IERRO POR VALOR DE"3HDINERO; "CADA UNO. " 
1560 PRECIO=INT(HDINERO*RND(1))3 IF PREC 
IO<HDINERO/2 THEN 15460 

1570 PRINT "LA MEJOR OFERTA ES DE”; 
PRECIO; "POR LINGOTE. " 


1580 PRINT TAB(8)5 "CUANTOS QUIERES VENDE 
Ros 

1590 INPUT K 

1600 IF K>HIER THEN 1590 

1610 DINERO=DINERO+K*PRECIO 

1620 HIER=HIER-K 

1630 GOTO 950 

1640 REM +* VENTA DE POLVORA +. 

1650 IF POLV<1 THEN 1180 


1660 PRINT "TENEMOS”53POLV3 "BARRILES DE P 
OLVORA POR VALOR DE”3PDINERO; "CADA UNO. ” 
1670 PRECIO=INT(PDINERO*+RND (1)): 

IF PRECIO<PDINERO/2 THEN 1670 
PRINT PRECIO; "POR BARRIL ES TODO LO 
OFRECEN LOS NATIVOS. " 

PRINT TAB(8)3 "CUANTOS QUIERES VENDE 


1680 
QUE 
1690 
Rv 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 


INPUT K 

IF K>POLV THEN 1700 
DINERO=DINERO+K*PRECIO 

POLV=POLV-=K 

GOTO 950 

REM %** VENTA DE CUADRANTES +4 

IF CUADRANTES<1 THEN 1180 

PRINT "TENEMOS"3CUADRANTES; "CUADRAN 


O 


O 
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TES POR VALOR DE"3CDINERO3 "CADA UNO. ” 
1780 PRECIO=INT(CDINERO+RND (1))3 

IF PRECIO<CDINERO/2 THEN 1780 

PRINT "LOS NATIVOS OFRECEN"5PRECIO; 
CADA CUADRANTE QUE LES VENDAS. ” 
PRINT TAB(8)5 "CUANTOS QUIERES VENDE 


1790 
"POR 
1800 
Ro 
1810 
1820 
1830 


INPUT K 

IF K>CUADRANTES THEN 1810 
DINERO=D INERO+K*PRECIO 
CUADRANTES=CUADRANTES-K 

GOTO 950 

REM ** COMPRAR A LOS NATIVOS + 
IF PEEK(197)<>64 THEN 1870 


PRINT "=== 


PRINT TAB(7)3">>> TIENES"; DINERO; 
“DOBLONES <<<" 

PRINT "LOS NATIVOS OFRECEN: ” 
CUENTAS=9+INT(RND (1) +7) 

PRINT TAB(4)5"” 1- ALIMENTOS A”3 
CUENTAS; "POR SACO. ” 
ESCLAVO=30+INT(RND (1) +9) 

PRINT TAB(4)3" 2- ESCLAVOS A*"3 
ESCLAVO; "CADA UNO. ” 

1950 PRINT TAB(4)3" 3- SI PREFIERES SEGU 
IR NAVEGANDO. " 

1955 POKE 198,0 

GET Bs 

IF Bs<"1" OR B$>"3" THEN 1960 


RIN TÉ 


IF B$="3" THEN 1180 
IF B$="2" THEN 2070 
PRINT “CUANTOS VIVERES QUIERES "3 
INPUT K 
2030 IF K*CUENTAS>DINERO THEN PRINT "NO 
TIENES SUFICIENTE DINERO. "s GOTO 2020 
2040 VIVERES=VIVERES+K:3 
DINERO=D INERO-CUENTAS.+K 
2050 PRINT “> YA ESTA HECHA LA TRANSACCI 
ON <":2GOSUB 3190:GOTO 1870 
2060 GOTO 1900 
2070 PRINT “CUANTOS ESCLAVOS QUIERES *”5 
2080 INPUT K 
2090 IF K*ESCLAVO>DINERO THEN PRINT "ESA 
CANTIDAD NO PUEDES PAGARLA": GOTO 2080 
2100 HOMBRES=HOMBRES+Ks 
DINERO=D INERO-ESCLAVO+K 
2110 PRINT"LOS ESCLAVOS YA FORMAN PARTE 
DE TU TRIPULACION”:GOSUB 3190:GOTO 1870 
2120 REM 444646 44 10 40 40-46-44 44-16-06 26 46-00-06 40-40 26-00 40-24-46 20-40 40040 10d 
2130 REM MUERTE POR ESCORBUTO 
2140 PRINT " DEBIDO A LA FALTA DE ALIMEN 
TOS FRESCOS,EL ESCORBUTO SE HA "3 
2150 PRINT "APODERADO DE LA NAVE..." 
2160 GOSUB 3190 
2170 K=HOMBRES/3: K=INT(RND(1)*K+1) 
2180 PRINT K3 "HOMBRES HAN PERECIDO. ” 
2190 GOSUB 3190 
2200 HOMBRES=HOMBRES-K 
2210 RETURN 
2220 REM 49046 4046 36-46-46 46 36 36 26-36 36-20 0 26 26 4020 46 26 46-46 00 EA 
2230 REM NAUFRAGIO 
2240 PRINT "LA NAVE ESTA A LA DERIVA, LL 
EVADA POR " 
2250 PRINT "LAS TUMULTUOSAS AGUAS..."z 
PRINT " CORREMOS UN GRAN PELIGRO !” 
2260 GOSUB 3190 
2270 IF RND(1)>.8 THEN 2370 
2280 PRINT: PRINT " LA TORMENTA ESTA PAS 


ANDO...” 

2290 PRINT "PERO PARTE DE LA CARGA Y ALG 

UNOS HOMBRES HAN CAIDO POR LA BORDA. ” 

2300 PRINT 

2310 HOMBRES =3+ INT (HOMBRES /4):3 
TELA =5%* INT (TELA /6) 

2320 ASTRO =7%* INT(ASTR /8): 
SAL =3 INT (SAL /4) 

2330 HIER =4* INT(HIER 1/5) 

2340 POLV =5* INT (POLV /6)3 
CUADRANTES=7+* INT (CUADRANTES/8) 

2350 GOSUB 3190 

2360 RETURN 

2370 PRINT: PRINT ” UNA GIGANTESCA OLA H 


“A INUNDADO LA NAVE” 


2380 PRINT "QUE SE HUNDE SIN QUE NADA PU 
EDA HACERSE. ” 

2390 GOSUB 3190 

2400 GOTO 700 

2410 REM 40400000:003024-00-404000-2040 20202000 000000 00 00 00 00 00 00 20 0 24 00 
2420 REM MOTIN 

2430 PRINT ” LOS HOMBRES ESTAN DESCONTEN 
TOS CON TU *” 

2440 PRINT "MODO DE ACTUAR. SE HABLA DE 
UN MOTIN... *” 
2450 PRINT TAB(15)3 
2460 GOSUB 3190 
2470 IF RND(1)>.8 THEN 2540 

2480 PRINT "PERO TU CONTROLAS A TIEMPO L 
A SITUACION: "3 
2490 PRINT " 
NADOS PARA *” 
2300 PRINT "DARLES A LOS OTROS UNA LECCI 
ON Y CONTI- NUAS EL VIAJE. * 

2520 GOSUB 3190 

2530 RETURN 

2540 PRINT ” HAN TRIUNFADO LOS AMOTINADO 
S ...” 

2550 PRINT " 


"UN MOTIN...” 


CUELGAS A DOS DE LOS AMOTI 


A TI TE HAN DEJADO EN UNA 


CHALUPA EN” 

2560 PRINT "MEDIO DEL OCEANO... ESTO E 
S EL FIN.” 

2570 GOSUB 3190 

2580 GOTO 700 

A 
2600 REM PIRATAS 

2610 PRINT " UN BARCO PIRATA DE LA PEOR 


REPUTACION * 
2620 PRINT "HA SIDO AVISTADO A ESTRIBOR. 
" 

2630 GOSUB 3190 

2640 PRINT " LOS PIRATAS SE LANZAN AL AB 
ORDAJE DE NUESTRA NAVE. " 

2650 GOSUB 3190 

2660 T=INT (RND (1)*3) 

2670 ON T+1 GOTO 2740, 2820 

2680 PRINT ” TU LES OFRECES COMPRAR TU L 
IBERTAD Y ” 
2690 PRINT 
DOBLONES ” 
2710 PRINT "Y LA POLVORA...” 

2720 DINERO=0: POLV=0 

2730 RETURN 

2740 PRINT “LOS TEMIBLES BANDOLEROS DEL 
MAR SUBEN ” 

27530 PRINT "A BORDO MATANDO HOMBRES A DI 

ESTRO Y SINIESTRO. ” 

2760 K=INT (RND (1) +HOMBRES+HOMBRES/3) 
2770 GOSUB 3190 

2780 PRINT K; "HOMBRES HAN SIDO ASESINADO 
S EN TOTAL" 


“ELLOS ACEPTAN LLEVANDOSE LOS 
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2790 HOMBRES=HOMBRES-K 

2800 GOSUB 3190 

2810 RETURN 

2820 PRINT " HEMOS TENIDO SUERTE: HAN HU 
IDO.” 

2830 PRINT TAB(8)5CHR$(18)5" TIERRA !!! 
ul 


2840 GOSUB 3190 

2850 RETURN 

2860 REM 46464036 44 16 34-16-24 24-36-26-20-90 16-20-10 46-36-36 266-260 H III 
2870 REM INICIALIZACION 

2880 PRINT CHR$(147) 

2910 HOMBRES=100+INT(RND (1) +30) 

2920 VIVERES=100+INT(RND (1) *30) 

2930 DINERO=200+INT (RND (1)+50) 

2940 COMIDO=.02+INT(RND(1)*10)/100 

2950 IF VIVERES/ (COMIDO*+HOMBRES) >11 


THEN 2910 


2960 TELA=100+INT(RND (1)%30) 3 


REM PRENDAS DE TELA 


2970 TDINERO= S+INT(RND(1)* 5): 


REM VALOR DE CADA PRENDA DE TELA 


2980 ASTRO=15+INT(RND(1)+ 5)3 


REM ASTROLABIOS 


2990 ADINERO=20+INT(RND(1)+* 5): 


REM VALOR DE CADA ASTROLABIO 


3000 SAL=S0+INT(RND(1)% 7): 


REM SACAS DE SAL 


3010 SDINERO=7+INT(RND(1)+% 4): 


REM VALOR DE LA SAL 


3020 HIER=30+INT(RND(1)+* 8): 


1R 
2R 
3R 
49 R 
SR 


90 
100 
110 
120 
130 
140 
EN 
150 
160 
170 
180 
190 
195 
200 
210 
215 
220 
230 
240 
ENT 
250 
260 
270 
280 


REM LINGOTES DE HIERRO 


EM HOM 0 M6 0 0 M0 16 M4 6 26 M4 dl 06 HH 1 4 
EM e. +. 
EM ** EL CUBO DE ELEUSIS  ** 
EM + . 
EM SOM dl 2 0 20 0 0 6 16 6 MH A 
REM 
RAYOS=20 
FOR J=1 TO 3 
Z=INT(RND(1)*9)+1: IF A(Z)=1 THEN 50 
A(Z)=1 
Z=INT(RND(1)*9)+1: IF B(Z)=1 THEN 70 
B(Z)=1 
Z=INT(RND(1)*9)+1: IF C(Z)=1 THEN 90 
C(Z)=1 
NEXT J 
GOSUB 790 
GOSUB 600 
PRINT ">CUENTAS CON"5RAYOS; "RAYOS DE 
ERGIA MENTAL<": PRINT 
PRINT "QUIERES CONCENTRARTE EN" 
PRINT "1- PARTE SUPERIOR" 
PRINT *2- PARTE DELANTERA” 
PRINT "3- PARTE IZQUIERDA" 
PRINT "4- LANZAR UNA HIPOTESIS" 
POKE 198,0 
GET Z5$: IF Z$="" THEN 200 
IF Z72$<"1" OR 2Z$>"4" THEN 200 
Z=VAL (Z5$) 
IF Z=4 THEN GOSUB 890: GOTO 540 
GOSUB 400 
PRINT "CONCENTRACION DE LA ENERGIA M 
AL EN " 
PRINT " LA CARA "; 
IF Z=1 THEN PRINT "SUPERIOR" 
IF Z=2 THEN PRINT "DELANTERA" 
IF Z=3 THEN PRINT "IZQUIERDA" 


3030 HDINERO=5+INT(RND(1)* 3): 
REM VALOR DE LOS LINGOTES DE HIERRO 

3040 POLV=3+INT(RND (1)42) 

3050 PDINERO=90+INT(RND (1)*20) 

3060 CUADRANTES=10+INT(RND(1)+4) 

3070 CDINERO=30+INT(RND (1)*6) 

3080 SEMANA=O 

3090 PRT=1 

3100 ESC=0 

3110 NAUFRAGIO=O 

3120 MOTIN=0 

3130 PIRATAS=0 

3140 FOR J=2 TO 8 

3150 READ AS (J) 


3160 NEXT J 

3170 RETURN 

3180 REM 446-4% 3020 36 40 36-006 46-20-0>30 26-24 20-14 0-40 46 46 30 40 26-44 46-44 4036 
3190 REM RETARDO 


3200 REM ALTERA ESTE RETARDO A TU GUSTO 

3210 FOR P=1 TO 15001 NEXT P 

3215 IF PEEK(653) AND 1 THEN 3215 

3216 REM PERMITE RETENER EL PROGRAMA 
MIENTRAS SE PULSE LA TECLA SHIFT 

3220 RETURN 

3230 REM 4441640 00-34 36 4% 30-16-00 46 26 00-46 36-40 36-46 26-20 36-40 30-40-40 46-24 4040 

3240 REM DATOS 

3250 DATA "ISLAS CANARIAS", "ISLAS DE CAB 

O VERDE","CABO DE SAN AUGUSTIN" 

3260 DATA "RIO DE JANEIRO","EL RIO DE SA 

NTA CRUZ", "TIERRA DEL FUEGO" 

3270 DATA "ISLA DE MACTAN” 


290 PRINT: PRINT "INTRODUCE EL NUMERO (D 
EL 1 AL 9) 2%; 
295 POKE 198,0 
300 GET Z$: IF Z$="" THEN 300 
310 IF Z$<"1" OR 2$>"9" THEN 300 
315 X=VAL (25) 
320 GOSUB 600 
330 FL=0 
340 IF Z=2 THEN 400 
350 IF Z=3 THEN 440 
360 FOR J=1 TO 3 
370 IF X=M(J) THEN FL=1 
380 NEXT J 
390 GOTO 470 
400 FOR J=1 TO 3 
410 IF X=N(J) THEN FL=1 
420 NEXT J 
430 GOTO 470 
440 FOR J=1 TO 3 
450 IF X=0(J) THEN FL=1 
460 NEXT J 
470 IF FL=1 THEN PRINT "EL RAYO NO HA SA 
LIDO POR EL OTRO LADO. ": GOTO 520 
480 PRINT "EL RAYO HA SALIDO POR": 
PRINT "EL SECTOR "3X: 
490 IF Z=1 THEN PRINT "INFERIOR" 
300 IF Z=2 THEN PRINT "POSTERIOR" 
510 IF Z=3 THEN PRINT "DERECHO" 
520 FOR T=1 TO 1500: NEXT T 
525 IF PEEK(197)<>64 THEN 525 
530 RAYOS=RAYOS-1 
540 IF RAYOS>0 THEN 130 
350 PRINT: PRINT "LO SIENTO, SE TE HA AC 
ABADO EL TIEMPO" 
560 PRINT "NO HAS CONSEGUIDO LOCALIZARLA 
s" 
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570 GOTO 1120 


580 END 

590 REM 4616464636 40d dE 0 6 HH HE HH M6 ME EH HE EH E E IRM 
600 REM IMPRESION DE PANTALLA 

610 PRINT CHR$(147): PRINT 

620 PRINT ” SUPER" 

630 PRINT *” 123" 

640 PRINT " 456" 

650 PRINT " 7809" 

660 PRINT 

670 PRINT " 120UI DELAN DEREC DETRA 
680 PRINT " 123 123 321 321 
690 PRINT ” 456 456 654 634 


700 PRINT " 789 789 987 987 


710 PRINT 

720 PRINT " INFER” 

730 PRINT " 7809" 

740 PRINT " 45356" 

750 PRINT " 1 2 3” 

760 PRINT 

770 RETURN 

780 REM 06 v6 34 0h d0 dh ab 06d db ad dd 00 0D 0 0 0 MO 0 0 0 0 A 0 0 0 0 4 
790 REM LOCALIZACION 


800 FOR J=1 TO 3: M(J)=0: N(J)=0: 
0(J)=0: NEXT J 

810 Mi=1: Ni=1: O1l=1 

820 FOR J=1 TO 9 

830 IF A(J)=1 THEN M(M1)=J: Mi=M1+1 

840 IF B(J)=1 THEN N(N1)=J: Ni=N1+1 

850 IF C(J)=1 THEN O(01)=J: O1=01+1 

860 NEXT J 

870 RETURN 

BBO REM 440 o 06 dt 6d 0 dd 0 DH 0 HI 

890 REM PREDICCION DE LA LOCALIZACION 

900 GOSUB 600 

905 PRINT "ES EL MOMENTO DE LANZAR UNA H 

IPOTESIS" 

910 PRINT 


10 REM 00116 04 04 06-40-16 M4 30 10 00 06 46 26 300 DE Md 0 


11 REM +* * 
12 REM * EL LABERINTO MAGICO + 
13 REM + * 


14 REM 104 0046 6 0-14 0 M0 06 M6 10M 0 M0 0 M0 

15 REM 

20 GOSUB 1000:REM INICIALIZACION 

30 FOR Y=1 TO 1000: NEXT Y 

40 PRINT CHR$(147): PRINT: PRINT 

50 MOVI=MOVI+1 

60 PRINT TAB(8)5 
“ESTE ES EL MOVIMIENTO"5MOVI 

70 PRINT: PRINT "ESTAS EN "5NS(RO) 

80 IF RO<>1 THEN 160 

90 FLAG=0 

100 PRINT "QUE CONTIENE: ” 

110 FOR Z=1 TO 8 

120 IF P$(2)<>"" THEN PRINT TAB((12)5 
PS(Z): FLAG=1 

130 NEXT Z 

140 IF FLAG=0 THEN PRINT TAB(12)5 "NADA" 

150 PRINT 

160 PRINT: PRINT “HAY SALIDA HACIA EL :" 

170 PRINT: PRINT TAB(10)5 

180 IF A(RO,1)<>0 THEN PRINT “NORTE, “3 

190 IF A(RO,2)<>0 THEN PRINT “SUR, “3 


920 
930 
940 
ROS) 
950 
960 


965 
970 
975 
980 
985 


990 
1000 
1010 
1020 
ADO" 
1030 
1040 
LA Pi 


GEMAS=0 
FOR T=1 TO 3 
PRINT "INTRODUCE COORDENADAS (3 NUME 
5 

INPUT A(T),B(T),C(T) 

IF A(T)I<3M(1) OR B(T)<>3N(1) 
OR C(T)<>0(1) THEN 970 
PRINT TAB(5)53">> LOCALIZADA EN"; 
M(1)3N(1)50(1)3"<<":z GEMAS=GEMAS+1 
IF A(T)<>3M(2) OR B(T)<>N (2) 
OR C(T)<>0(2) THEN 980 
PRINT TAB(5)3">> LOCALIZADA EN*5 
M(2)3N(2)50(2)53"<<": GEMAS=GEMAS+1 
IF A(TI<>M(3) OR B(T)<>N(3) 
OR C(T)<>0(3) THEN 990 
PRINT TAB(S5)5">> LOCALIZADA EN”; 
M(3)3N(3)50(3)5"<<":2 GEMAS=GEMAS+1 
NEXT T 

FOR T=1 TO 1000: NEXT T 

IF GEMAS=3 THEN 1080 

PRINT: PRINT TAB(4)5"<< HAS ENCONTR 
3GEMAS; "GEMAS >>": PRINT 

IF PEEK(197)<>64 THEN 1030 

PRINT: PRINT " PULSA CUALQUIER TEC 
ARA CONTINUAR " 


1050 IF PEEK(197)=64 THEN 1050 


1060 
1070 
1080 
1090 
1100 
1110 
DOTE 
TAL. 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 


200 
210 
220 


230 IF RO<>1 AND O$S(RO)<>"" THEN PRINT " 


PRINT CHR$S (147) 

RETURN 

REM ** FINAL DEL JUEGO +. 
GOSUB 600 

PRINT: PRINT 


PRINT " LAS HAS ENCONTRADO, QUEDAN 
"3RAYOS: PRINT "RAYOS DE ENERGIA MEN 
PRINT 

PRINT TAB(7)5 "ESTABAN EN :" 

PRINT 

FOR J=1 TO 3 


PRINT TAB(9)53M(J)5N(J)50(J) 
PRINT 

NEXT J 

END 


IF A(RO,3)<>0 THEN PRINT "ESTE, "5 
IF A(RO,4)<>0 THEN PRINT "DESTE. "3 
PRINT: PRINT 


EN LA HABITACION HAY UN”"50O$(RO): PRINT 


240 
UN” 
250 


260 
270 
280 
290 
300 
310 
320 


330 
340 
350 
360 


370 
380 


390 


IF MS<>"" THEN PRINT "LLEVAS CONTIGO 
3ms 

IF MS$="" THEN PRINT 

“TIENES LAS MANOS VACIAS" 

GOSUB 300 

GOTO 30 

NN ee 
REM ENTRADA DE DATOS 

PRINT: PRINT "QUE QUIERES HACER ”3 


INPUT ES 

IF LEN(ES)<7 THEN ES=ES+" "2 

GOTO 320 

FS=LEFTS (ES, 3) 

IF Fs$="PAR" THEN 960 

IF FS="IR " THEN F$= MIDS(E$,4,3) 
IF F$="NOR" OR F$="SUR" OR F$="EST" 
OR F$="0ES" THEN GOSUB 460: RETURN 
Z=1 

IF MIDS(ES,Z,1)=" " THEN 

G$=MIDS (ES,Z+1,3):2 GOTO 420 

IF Z<LEN(ES) THEN Z=Z+13 GOTO 380 
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PRINT3 PRINT “NO ENTIENDO "3Es 

RETURN 

IF F$="C0G" OR F$="TOM" THEN GOSUB 

600: RETURN: REM ”COGER” O ”TOMAR” 

IF F$="PON"” OR F$="DEJ"” THEN GOSUB 

680: RETURN3REM ”PONER” O *”DEJAR” 

GOTO 400 

REM 4020:2620Í6-20-4-20-0620-26-0-26.2620-20-20-2620-20 2420 00100 

REM MOVIMIENTO 

FS=LEFTS(FS, 1) 

IF F$="N" THEN 330 

IF F$="S" THEN 3550 

500 IF F$="E" THEN 570 

510 IF A(RO,4)=0 THEN PRINT"SOLO LOS FAN 

TASMAS ATRAVIESAN LOS MUROS" 

520 RO=A(RO, 4) : RETURN 

530 IF A(RO,1)=0 THEN PRINT"NO HAY SALID 

A EN ESA DIRECCION": RETURN 

540 RO=A(RO, 1) : RETURN 

550 IF A(RO,2)=0 THEN PRINT" 

URO BIEN SOLIDO”: RETURN 

560 RO=A(RO, 2) : RETURN 

570 IF A(RO,3)=0 THEN PRINT"ESO ES IMPOS 

IBLE": RETURN 

580 RO=A(RO, 3) : RETURN 

590 REM 164044102036 36 26 16-46 26-36-26 16 46 26 26-16-26 26 16 26 16-16 26 46 1I60 

600 REM RUTINA PARA COGER OBJETOS 

610 IF RO=1 THEN RETURN 

620 IF LEFTS(G$,3)<>LEFTS(OS(RO),3) THEN 
PRINT"NO ESTA AQUI": RETURN 

630 IFMS$<>"" THEN PRINT"SOLO PUEDES LLEV 

AR UNA COSA. ”: RETURN 

640 M$=OS (RO) 

650 OS(RO)="" 

660 RETURN 

670 REM 103636463040 40 46-44 46 16-36 26-06-30 36 19 6 36-46-16 16-46 26 4046 36 44-16 3646 

680 REM RUTINA PARA DEJAR COSAS 

690 IFMS="" THEN PRINT 

"NO LO LLEVAS CONTIGO. "2 RETURN 


400 
410 
420 


430 


440 
450 
460 
:470 
480 
490 


HAY UN M 


700 IF RO=1 THEN 750 

710 IF OS(RO)<>"" THEN PRINT"ESTA HABITA 
CION YA"*PRINT"TIENE UN*"50$(RO) 3 RETURN 
720 OS(RO) =M8 

730 Msn" »" 

740 RETURN 

7530 SITU=O : FLAG=0 


760 
770 
780 


FOR Z=1 TO 6 

IF SITU=1 THEN 790 

IF PS(Z)="" THEN PS(Z)=M8: 

SITU=1: MS="" 

IF P$(Z)<>"" THEN FLAG=FLAG+1 

NEXT Z 

810 IF FLAG=0 THEN PRINT TAB(8)3 "NADA" 
820 PRINT: PRINT "TE QUEDAN POR LOCALIZA 
R"536-FLAG; "OBJETOS. " 

830 FOR I=1 TO 700: NEXT I 

840 IF FLAG=6 THEN 870 : REM FIN DEL JUE 
GO3 ** COGIDOS TODOS LOS OBJETOS ++* 
RETURN 

REM 443030-06-36-10 36-00-16 40 16-16 16-06 36 M0-34-10 20-26-46 26 16-10-16 14-20-16 16-16 46 
REM FIN DEL JUEGO 

880 PRINT: PRINT “LO HAS CONSEGUIDO !!!” 
890 PRINT: PRINT "HAS LOGRADO TRAER 6 OB 
JETOS HASTA EL ALMACEN '!!!" 

900 FOR Z=1 TO 8 

910 IF P$(Z)<>"" THEN PRINT TAB(2)5 
Ps(Z) 

NEXT Z 

PRINT ” LO HAS HECHO EN"; 

PRINT MOVI; "MOVIMIENTOS” 

END 


790 
800 


eso 
860 
870 


920 
930 
940 
950 


960 PRINT: PRINT "NO CREI QUE FUERAS TAN 

COBARDE !” 

970 PRINT" SOBREVIVISTE DURANTE”; 

980 GOTO 940 

A 

1000 REM INICIALIZACION 

1020 PRINT CHR$S (147) 

1030 DIM A(9,4),N$(9),0$(18),P$(9),M(8) 

1040 RO=INT(RND(1)+8)+2: 

REM HABITACION INICIAL 

FORJ=1 TO 9 

READ NS (J): 

REM NOMBRE DE LA HABITACION 

NEXT J 

FOR J=1 TO 18l 

READ 05$(J) 

1100 NEXT J 

1110 REM ** RUTINA DE DISTRIBUCION sw 

1120 REM +. DE OBJETOS .. 

1130 FOR J=18 TO 11 STEP -1 

1140 Z=INT(RND(1)J)+1 

1150 M$=0$(Z) 

1160 0$(Z7)=08$(J) 

1170 08 (J)=MS 

1180 NEXT J 

M$="": REM *+* ESTE ES EL OBJETO QUE 
EL JUGADOR LLEVA CONSIGO +» 

MOVI=0 

FOR J=1 TO 9 

FOR Kmi1 TO 4 

READ A(J,K) 

NEXT K 


1050 
1060 


1070 
1080 
1090 


ALMACEN" 

TORREON SINIESTRO" 
SALON DE MARMOL” 
BIBLIOTECA" 
CAMARA DE AUDIENCIAS” 
GRAN DORMITORIO" 

SALA DE ESTAR" 

ESTUDIO DEL ARTISTA" 

"EL REFUGIO DEL MUSICO"” 

* CANDELABRO ROTO" 

”* DOBLON DE ORO” 

"A BRILLANTE ESMERALDA" 

"A ESTATUA DE BRONCE" 

* CALIZ DE PLATA” 

"A PODEROSA ESPADA" 

" ANILLO DE DIAMANTES" 

"A COPA DE CRISTAL” 

"A BOLA MAGICA" 

" PERGAMINO SECRETO" 

"A VARITA MAGICA” 

"A COLA DE TRITON"” 

"A POCION DE CICUTA"” 

* PAPIRO ENCANTADO" 

" TROZO DE KRIPTONITA NEGRA” 
"A GEMA REFULGENTE" 

" CUARZO MAGICO” 

" PENTAGONO DEL PODER” 
REM HABITACION 
REM HABITACION 
REM HABITACION 
: REM HABITACION 
2 REM HABITACION 
: REM HABITACION 
2 REM HABITACION 
2 REM HABITACION 
: REM HABITACION 
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Adaptación del BASIC de 
Microsoft al Apple ll 


En este apéndice se pretende dar una serie de ideas para la adaptación 
de programas BASIC Microsoft a BASIC Apple o Applesoft. 

Los programas de este libro están escritos en un BASIC estándar, con 
la idea de que con muy pocos cambios se puedan introducir en cualquier 
ordenador personal. La condición principal para conseguir esta cualidad 
en un programa es prescindir de gráficos y sonido, ya que es en las 
sentencias necesarias para generarlos donde se encuentran las mayores 
diferencias entre los diversos ordenadores personales. 

A continuación se exponen una serie de diferencias, las más significati- 
vas, y la forma de solucionarlas a la hora de realizar una adaptación de 
programas. 

Lo referente a colores y gráficos y sonido se expondrá en un apartado 
especial. 


Control del almacenamiento de masa 
CASSETTE 
La principal diferencia, de cara al usuario, es que el control del cassette 


del Apple no admite nombre de fichero. Salva lo que haya en memoria, y 
carga lo primero que se encuentre. 
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LOAD No tienen argumentos. Esto es válido sólo para programas 
SAVE en BASIC. 

STORE Llevan nombre de matriz. Almacena o carga la matriz 
RECALL indicada. Tiene que estar dimensionada antes de cargarla. 


DISCO 


El Apple, al ser conectado, lo primero que hace es buscar, en el slot 
número seis, el controlador de disco. Si lo encuentra, bota el disco; si no, 
se detiene y espera Órdenes dando control al intérprete de BASIC. 

El Apple no tiene canales de ENTRADA/SALIDA, por lo que al abrir 
un fichero secuencial para lectura o escritura las Órdenes respectivas re- 
dirigen su función hacia el disco. 

Ejemplo: 


D$ = CHRS (4) 

PRINT D$;“OPEN (FICHERO)” 

PRINT DS;“READ (FICHERO)” 

INPUT AS$ 

PRINT D$;“CLOSE (FICHERO)” 

INPUT B$: REM AHORA DESDE TECLADO 


Las órdenes principales son: 


LOAD (nombre): Carga el programa referenciado. 
SAVE (nombre): Salva el programa que se halle en memoria y le 
asigna como identificación “nombre”. 


Si los programas están en lenguaje máquina, se pone delante de estos 
comandos una B (BLOAD y BSAVE). Estas mismas órdenes se utilizan 
para guardar gráficos en el disco. 

El comando PR 6, rebota el disco. 

Para guardar gráficos se usan BSAVE y BLOAD con unos parámetros 
que dan la dirección en que quieres que lo guarde en memoria, y la 
longitud. Para salvarlos en disco basta decir el nombre y la longitud. 

El resto de las órdenes del disco son las habituales en el resto de los 
ordenadores o bien son exclusivas del Apple, en cuyo caso os remito a los 
manuales del ordenador. 


Control de la impresora 


No existen órdenes particulares de la impresora. Las órdenes LLIST y 
LPRINT no existen en el Apple. 


Para sacar resultados o datos o cualquier otra cosa, hay que redirigir 
los comandos de escritura hacia la impresora. Esto se realiza mediante la 
leyenda PRA (slot en el que esté situada la impresora). Así, todo lo que 
fuera a salir por la pantalla, saldría por la impresora. 

Ejemplo: 


PRA 1 
PRINT osa ” —————Sale por la impresora 
LIST ————— Sale por la impresora 


Para deshabilitar la impresora hay que escribir PR 0. 


Comandos BASIC 


El Applesoft es un BASIC estándar y amplio; admite, a veces, varias 
sintaxis para un mismo comando. Un ejemplo es la asignación. Se puede 
poner LET A = 0 o simplemente A=0. Ambas son perfectamente válidas. 

Por ello no voy a hacer una tabla con las conversiones de comandos 
de una versión de BASIC a otra. Voy a limitarme a comentar las diferen- 
cias existentes entre ambas, en la confianza de que el usuario de un Apple 
sabe o, mejor dicho, conoce el BASIC residente en su ordenador. 

En los comandos de control de flujo, en las subrutinas, existe una 
instrucción un poco especial: POP. 

Este comando se usa cuando hay varias subrutinas anidadas, para 
volver, no a la que ha llamado a la subrutina actualmente en ejecución, 
sino a la anterior. 

El RESUME es una rutina de manejo de errores que hace volver la 
ejecución del programa a la sentencia en que se produjo el error. 

En los juegos el comando PAD (entero) es sustituido por PDL (X) que 
devuelve un entero entre 0 y 255 dependiendo de la posición del paddle X, 
siendo X un entero entre 0 y 3. 

Otra diferencia digna de ser tenida en cuenta, pues puede llevar a 
errores difíciles de detectar. El Apple admite nombres de variables de 
muchas letras pero sólo usa dos, las primeras, para la identificación de esa 
variable. Si seguido del nombre de la variable ponemos el símbolo del 
porcentaje, %, el ordenador considerará esa variable como entera. Si en 
vez de eso, ponemos el símbolo $, estamos refiriéndonos a una variable 
alfanumérica. 

Esto mismo rige para matrices. Estas están limitadas en su tamaño por 
la cantidad de memoria disponible. 

Para el control del cursor, hay varias órdenes específicas: 


VTAB X: Lleva el cursor a la línea X (1 a 24). 

HTAB Y: Lleva el cursor a la línea Y (1 a 40). 

TAB X: Sólo en la sentencia PRINT, mueve el cursor a la 
posición X (1 a 40). 
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POS (0): Devuelve la posición en que se halla el cursor (0 a 39). 

SPC (X): Sólo en la sentencia PRINT, sitúa X espacios entre lo 
último escrito y lo siguiente. 

HOME: — Borra la pantalla y sitúa el cursor arriba a la izquierda. 

CLEAR: — Borra todas las variables y las pone a cero. 


Para poner algo en video inverso, se da la instrucción INVERSE y a 
partir de ese momento todo lo que se escriba en pantalla saldrá en 
inverso. Para volver a la normalidad, se dice NORMAL. 

Si lo que deseamos es que el mensaje esté en flash se pone FLASH, y 
para restaurar el video normal, NORMAL. 

Para el manejo de cadenas de caracteres, remito al usuario al manual 
del Apple. 

Hay otras dos sentencias que pueden merecer nuestra atención: 

HIMEM y LOMEM sitúan la memoria a la dirección más alta o más 
baja posible para el uso, por un programa en Applesoft. Si se le pone 
argumento, sitúa la memoria, si es posible, en la posición solicitada. 

El generador de números aleatorios funciona de la siguiente manera: se 
pone RND(X) y, según el valor de X, nos dará un número aleatorio 
dependiendo de una semilla que se cambia cada vez que se pulsa una 
tecla, de acuerdo con el tiempo transcurrido entre pulsaciones. Por ello, la 
función RANDOMIZE del BASIC Microsoft no es necesaria aquí. 

Como se dijo al principio de este apéndice, el BASIC Applesoft es están- 
dar y, por ello, la mayoría de las sentencias son idénticas, tanto en sintaxis 
como en funcionamiento. 

Lo mismo ocurre con las funciones matemáticas que, salvo que no esté 
alguna implementada, son iguales en ambos lenguajes. 

En el Apple hay tres modos de pantalla: el modo texto y dos modos 
gráficos. Al modo texto se accede cuando se enciende el ordenador o 
mediante la orden TEXT. En este modo, el Apple tiene 40 columnas y 24 
líneas. La adaptación a pantallas más grandes o pequeñas no tiene mayor 
dificultad que la de resituar los mensajes en ella. 

Los otros dos modos son los modos gráficos. Mediante GR se accede 
al modo de baja resolución y, mediante HGR, al modo de alta resolución. 
En el modo de alta resolución hay dos páginas; a la segunda se accede 
mediante HGR2. Ambas páginas de alta resolución son iguales. 


Gráficos y modos de pantalla 
Los modos de pantalla, como ya dije antes, son tres: 


TEXTO, GR (baja resolución) HGR (alta resolución, dos páginas). 


Al ser el Apple uno de los primeros ordenadores personales que 
salieron al mercado, su sistema de gráficos no puede competir con el de 


los modernos ordenadores personales. El principal problema es que, al 
trabajar en color, la resolución se reduce a la mitad. 


Baja resolución: 


Se habilita mediante el comando GR. 

Limpia la parte superior de la pantalla, consistente en 40 x 40 puntos y 
deja 4 líneas de texto que no borra. Tiene 16 colores, los cuales puede usar 
simultáneamente. 


Instrucciones: 
COLOR = X: Habilita el color X (0 a 15) para la siguiente 
instrucción. 
PLOT X,Y: Sitúa un punto de color en el punto de coorde- 


nadas X,Y. Ambas coordenadas van de O a 39. 
El cero-cero es arriba a la izquierda. 

HLIN X1,X2 AT Y: Dibuja una línea horizontal desde el punto 
X1,Y al X2,Y. El color en que aparecerá es el 
que esté previamente definido. 

VLIN Y1,Y2 AT X: Lo mismo que la anterior, pero resulta una 
línea vertical. 

SCRN(X, Y): Devuelve el color de punto referenciado. 


Alta resolución: 


Se habilita mediante las órdenes HGR o HGR2 dependiendo de la 
página que deseemos utilizar. 

HGR limpia la parte superior de la primera página de gráficos de alta 
resolución y la deja en negro. Esta parte de la pantalla son 280 x 160 
puntos, el resto son 4 líneas de texto que quedan en la parte inferior de la 
página que, como en el caso anterior, no se borra. 

HGR2 limpia toda la página de gráficos de alta resolución y la deja en 
negro. Esta página no tiene nada que ver con la anterior y contiene 
280 x 192 puntos. 


Instrucciones: 
HCOLOR = X: Sitúa el color X (0 a 7) para las si- 
guientes instrucciones de dibujo. 
HPLOT X,Y: Sitúa un punto con el color anterior- 


mente referenciado en el punto de 
coordenadas X,Y. X va de O a 279; Y 
va de 0 a 159 en HGR o a 191 en 
HGR2. El 0,0 es la esquina superior 
izquierda. 
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HPLOT X1,Y1 TO X2,Y2: Dibuja una línea desde el punto X1,Y1 
al punto X2,Y2. Este comando es ex- 
tensible a varias órdenes consecutivas, 
del tipo HPLOT X1,Y1 TO X2,Y2 


TO:X3 VI 

SHLOAD: Carga una shape o una tabla de shapes 
desde cassette. 

DRAW n AT X.Y: Dibuja la shape número n en el punto 
X, Y en el color solicitado en el último 
HCOLOR. 

XDRAW n AT X.Y: Dibuja una shape, la n, en el punto 


X,Y pero en el color complementario 
del determinado con HCOLOR. 

ROT =X: Sitúa la rotación de la shape para el 
DRAW y el XDRAW. X va de 0 a 
255. X =0 es vertical, los demás de- 
penden de la escala. 

SCALE = X: Sitúa la escala, de 1 a 255, para el 
DRAW y el XDRAW. 


Una shape es una figura que se dibuja en la pantalla de alta resolución 
guiándose por una tabla de bytes en memoria. Para mayores detalles, 
consultar los manuales. 


Simulación del INKEYS 


El Applesoft no tiene instrucción INKEYS. Sólo dispone de la instruc- 
ción GET Af, que lee un carácter del teclado pero, a diferencia del 
INKEYS, el GET espera a que se pulse una tecla. 

Para la simulación del INKEYS$ se utiliza el siguiente conjunto de 
instrucciones: 


IF PEEK (-16384) = 128 THEN A=PEEK(-— 16384): POKE -—16368,0 


A toma el valor ASCII + 128 del carácter pulsado. Para obtener el 
carácter se pone A$ = CHR$ (A— 128). 

Teniendo en cuenta que las instrucciones que no aparecen en el presen- 
te apéndice son iguales en ambos BASIC Microsoft y Applesoft, salvo 
error u omisión, espero que lo anterior ayude al lector en su labor de 
adaptación e implementación de los programas de este libro, o de cual- 
quier otro, en su ordenador. 


* *k * 


NOTA.—Tras una lectura detallada de todos los programas del libro, 
la única orden que no admitiría el Applesoft, tal y como vienen, es: 


CES, que tiene sustituto directo en la orden HOME. Para declarar como ente- 
ra una o varias variables hay que poner el símbolo de porcentaje, %, tras 
el nombre de cada variable. 


Rutina de sonido 


El Applesoft no dispone de órdenes específicas para generar sonido 
excepto un pobre PRINT CHR$(7) que genera un beep por el altavoz. 

Sin embargo, mediante una rutina especial que damos a continuación, 
va a ser posible producir sonido en una extensión aproximada de cuatro 
octavas. Esta rutina se introducirá en el programa BASIC, y se ejecutará 
una sola vez para introducirla en memoria en código máquina. 


POKE 768, frecuencia 
POKE 769, duración 
CALL 770 


La rutina en BASIC es la siguiente: 


FOR I=770 TO 792 

READ CODIGO -—————— Leerá de la sentencia DATA 

POKE I, CODIGO 

NEXT I 

DATA 173, 48, 192, 136, 208, 5, 206, 1, 3, 240, 9, 202, 208, 245, 274, 
0, 3, 76, 2, 3, 96, 0 


Por supuesto, los números de sentencia se deben adecuar a cada 
programa en particular. 

La duración puede tomar un valor entre O y 255, pero los valores 
normales y más cómodos son: 


50 100 
150 200 
La tabla de frecuencias es: 
DO 295 128 64 32 
DOF 242 121 60 30 
RE 228 114 57 29 
REF 215 108 54 27 
MI 203 102 51 25 
FA 192 9% 48 24 
FAA 181 91 45 
SOL 171 85 43 
SOLF 161 81 40 
LA 152 76 38 
LA 4 144 72 36 
SI 126 68 34 
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O 


REM 


VOS SID MIE IE IÓ HE HEHE IDE IE III 


REM + * 


1 

2 

3 REM 
4 REM 
S REM 
7 


* EL CUBO DE ELEUSIS + 
* * 


MIO ADDED DIED IE IE MIR IIEH 


REM 


100 


110 
120 


130 


140 


150 


160 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


300 
310 
320 
330 


340 
350 


360 
370 
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HOME 

HGR2 

HGR 

HCOLOR= 3 

HPLOT 90,25 TO 70,25 TO 70,55 
TO 90,55 

HPLOT 110,25 TO 110,55 TO 130 
,»55 TO 130,25 

HPLOT 150,25 TO 145,25 TO 170 
,30 TO 170,35 TO 165,40 TO 1 
70,45 TO 170,50 TO 165,55 TO 
150,55 TO 150,25 

HPLOT 190,25 TO 190,55 TO 210 
,»55 TO 210,25 TO 190,25 

HPLOT 110,75 TO 125,75 TO 130 
,80 TO 130,100 TO 125,105 TO 
110,105 TO 110,75 

HPLOT 170,75 TO 150,75 TO 15 
0,105 TO 170,105: HPLOT 150, 
90 TO 160,90 

HPLOT 30,125 TO 30,155 TO 50 
»155 TO 50,125 

HPLOT 70,125 TO 70,155 TO 90 
» 155 

HPLOT 110,125 TO 130,125 TO 
120,125 TO 120,155 TO 110,15 
S TO 130,155 

HPLOT 170,125 TO 150,125 TO 
150,140 TO 170,140 TO 170,15 
5 TO 150,155 

HPLOT 210,125 TO 190,125 TO 
190,155 TO 210,155: HPLOT 19 
0,140 TO 200,140 

HPLOT 250,125 TO 230,125 TO 
230,140 TO 250,140 TO 250,15 
5 TO 230,155 

FOR I = 1 TO 3000 

NEXT 1 

HOME 
HGR2 
TEXT 
REM 
REM 
REM 
REM 
REM 
REM 
ic 
DIM A(9),B(9),C(9),M(3),N(3) 
»0(3) 

RAYO = 20 

CUBO = O 

FOR J = 1 TO 3 

Z = INT (( RND (1) + 9) + 1) 
2 IF A(Z) = 1 THEN GOTO 330 


MOM DDD DD 6 HE 6 6 DD DE HH II 


CUBO DE ELEUSIS 


COMIENZA EL JUEGO 


A(Z) = 1 
Z = INT (( RND (1) * 9) + 1) 
2 IF B(Z7) = 1 THEN GOTO 350 


B(Z) = 1 
Z = INT (( RND (1) * 9) + 1) 
: IF C(Z) = 1 THEN 370 


380 
390 
400 
410 
420 
430 


440 
450 


460 
470 
480 
490 


500 
510 


520 
530 
540 
550 


560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


:750 


760 


770 


780 


790 


800 


810 
820 
830 
840 


eso 
850 
870 
ego 
890 


C(Z) = 1 
NEXT J 
GOSUB 1120 
GOSUB 890 
HOME 
PRINT "<*> TE QUEDAN "5RAYO; 
" RAYOS <*>": PRINT 
PRINT "DONDE QUIERES CONCENT 
RAR EL RAYO" 
PRINT : PRINT "1-ARRIBA 2-FR 
ENTE 3-IZQDA 4-ADIVINAR "3 
INPUT Z 
IF Z< 1 OR Z > 4 THEN 460 
IF Z = 4 THEN GOSUB 1230 
IF Z = 4 THEN 830: REM AL 
O MEJOR TE QUEDAS SIN RAYOS 
HOME 
PRINT 1: PRINT "RAYO APUNTADO 
A LA CARA "3 
IF Z = 1 THEN 
IBA" 
IF Z = 2 THEN 
RENTE" 
IF Z = 3 THEN 
IZQUIERDA" 
PRINT : PRINT "OPCION (1 A 9 
>" 
INPUT X 
IF XX < 1 OR X > 9 THEN 560 
GOSsUuB 890 
FLAG = O 
IF 7 = 2 THEN 660 
IF Z = 3 THEN 700 
FOR J = 1 TO 3 
IF X = M(J) THEN FLAG = 1 
NEXT J 
GOTO 740 
FOR J = 1 TO 3 
IF X = N(J) THEN FLAG = 1 
NEXT J 
GOTO 740 
FOR J = 1 TO 3 
IF X = 0(J) THEN FLAG = 1 
NEXT J 
HOME 
HOME 
IF FLAG = 1 THEN PRINT "EL 
RAYO NO ATRAVIES 
A EL CUBO: GOTO 810 
PRINT : PRINT 2 PRINT "EL RA 
YO SALIO POR "; 
IF Z = 1 THEN 
E" 
IF Z = 2 THEN 
IF Z = 3 THEN 
ECHA" 
PRINT : 
OR "3xX 
FOR T = 1 TO 1500: 
RAYO = RAYO -— 1 
IF RAYO > O THEN 410 
PRINT : PRINT "LO SIENTO, SE 
ACABO TU TIEMPO" 


PRINT "DE ARR 


PRINT "DE ENF 


PRINT "DE LA 


PRINT "LA BAS 
PRINT "DETRAS 
PRINT "LA DER 
PRINT — TAB( 7)3"SECT 


NEXT T 


PRINT "NO LAS ENCONTRASTE" 
GOTO 1510 

END 

REM taba bbadadada 
REM DISPLAY DEL CUBO 


O 


o. Oo 


O 


OOO OOOO OOOO 


O 


O 


O 


O 


oO o Oo O 


o o o 0 


O 


O 


Oo. DO0O O O O 


900 
910 
920 
930 
940 
950 
960 
970 
980 


990 
1000 


1010 


1040 
1050 
1060 


1100 
1110 
1120 
1130 
1140 


1150 
1160 
1170 


1180 
1190 
1200 
1210 
1220 


1230 
1240 


1250 
1260 
1270 


REM M0 1 6 1 M6 0 16 6 616 66H AIM 
IF CUBO = 1 THEN RETURN 


HOME 1 PRINT 
PRINT " ARRIBA" 
PRINT " 123" 
PRINT " 456" 
PRINT " 7839 
PRINT 
PRINT "IZQUIERDA ENFRENTE 
DERECHA DETRAS" 
PRINT " 123 123 
321 321” 
PRINT " 456 456 
654 654" 
PRINT " 789 789 
987 987" 


: BASE " 


PRINT " 7809" 
PRINT " 456" 
PRINT ” 123" 


PRINT 


POKE 34,16 

RETURN 

REM Idea 6 0604 6 16 16 6 36 16 16 6H 

REM LOCALIZACION 

O 

FOR J = 1 TO 3:2M(J) = O:N(J 
) = 010(J) = O: NEXT J 

Mi = 1:N1 = 1:01 = 1 


FOR J = 1 TO 9 

IF A(J) = 1 THEN M(Mi) = J2 
Mi = Mi + 1 

IF B(J) = 1 THEN N(N1) = J: 
N1 = Ni + 1 

IF C(J) = 1 THEN O(01) = Jx 
01 = 01 + 1 

NEXT J 

RETURN 

IN ii 
* 

REM ENCONTRAR LAS GEMAS 
E ii 
+ 

POKE 34,0:CUBO = O 

HOME 

PRINT : PRINT : PRINT 

PRINT "INTENTA ENCONTRAR LA 


JIM A 6 M6 Dd DA HIM IÓ DIM 


REM * * 


1 
2 
3 
4 REM + + 
5 
6 


* CITA CON MEFISTOFELES + 


MM D AD MO HD A DEI HDI 


PRINT "=ammmmmz=c=emssosmsec=m= 
ARA 

INVERSE 

SPEED= 50 

PRINT 2: HTAB 15: 
NTRO" 

PRINT 2 


PRINT "ENCUE 


HTAB 18: PRINT "CON" 


1290 
1300 
1310 
1320 


1330 
1340 


1350 


1360 


1370 
1380 
1390 
1400 


1410 


1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 


1510 
1520 


1530 
1540 
1550 


S GEMAS" 

PRINT 

COUNTER = O 

FOR T = 1 TO 3 

PRINT "INTRODUCE LAS COORDE 
NADAS (3 NUMEROS) -> "5 

INPUT A(T),B(T)>,C(T) 

IF A(T) = M(1) AND B(T) = N 
(1) AND C(T) = O(1) THEN PRINT 
TAB( 5)5">>ENCONTRADA EN "5 
M(1)3N(1)50(1)5 "<<": COUNTER = 
COUNTER + 1 

IF A(T) = M(2) AND B(T) = N 
(2) AND C(T) = 0(2) THEN PRINT 
TAB( 5)3">>ENCONTRADA EN "3 
M(2)5N(2)30(2)5"<<": COUNTER = 
COUNTER + 1 

IF A(T) = M(3) AND B(T) = N 
(3) AND C(T) = 0(3) THEN PRINT 
TAB( 5)3">>ENCONTRADA EN "3 
M(3)5N(3)30(3)3"<<"2 COUNTER = 
COUNTER + 1 

NEXT T 

FOR T = 1 TO 2000: NEXT T 

IF COUNTER = 3 THEN 1460 


PRINT : PRINT — TAB( 9)5"<< 
HAS ENCONTRADO ";COUNTER;" > 
>": PRINT 


PRINT : PRINT 
IETA UNA TECLA 
GET AS 

HOME 

RETURN 

REM Ie 6 0H 06H 

REM FIN DE JUEGO 

e 

GOSUB 890 

PRINT : PRINT 

PRINT "AL ENCONTRARLAS TE Q 
UEDABAN "¿RAYO;3" RAYOS." 
PRINT 
PRINT TAB( 7)5"ESTABAN EN 
“" 


TAB( 6); "APR 
PARA SEGUIR" 


: 
PRINT 

FOR J = 1 TO 3 

PRINT — TAB( 9)3M(J)5N(J)50( 


80 PRINT : HTAB 13: PRINT "MEFIS 
TOFELES"” 

90 SPEED= 255 

100 NORMAL 

110 PRINT : PRINT "============= 
EXIISIIIIDIIDIAIASCADADAAA A 

120 FOR Z = 1 TO 500 

130 NEXT Z 

140 PRINT : PRINT : HTAB 10: PRINT 
"ESPERA UN MOMENTO" 

150 PRINT : HTAB 14: PRINT "MIEN 
TRAS" 

150 PRINT : HTAB 13: PRINT "INIC 
IALIZO" 

170 REM AS 


C 


Oo 00. O 0 0 0-00 Q0.O0 000 0.0 


O 


O 
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o0úu.0O O O O O O O O 


O, 20%, 250% 07 “01 10 307-0100 


O 


O 
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180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


280 
290 


300 
310 


320 
330 


340 


350 


360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


490 


500 


AAA AA 

REM ENCUENTRO CON MEFIST 
OFELES 

O 
AMAIA 

GOSUB 4700: REM INICIALIZAC 
ION 

E iii 
REM INFORME AL JUGADOR 
E ici 
FOR Z = 1 TO 1000 

NEXT Z 

HOME 

IF RO = 16 THEN QU = 13 GOTO 
3210 

HOME 


GOSUB 3620: REM DESCRIPCION 
DE LAS HABITACIONES 

VTAB 23: PRINT 2: PRINT. TAB( 
10);"PULSA UNA TECLA -> "3 

GET AS 

HOME 


IF A(RO,S) < > O OR A(RO, 6) 


< >0O00R A(RO,7) < > O THEN 
GOSUB 4580 
IF RO = 12 AND LOCK = O THEN 


PRINT 2 PRINT  TAB( 8);5" LA 
PUERTA ESTA CERRADA...": PRINT 


IF A(RO,8) < > O THEN PRINT 
TAB( 3); "CUIDADO!!! "3 PRINT 

2 PRINT "HAY UN "5MS$(A(RO, 8) 
33" AQUI.”": IF RND (1) > .7 
AND A(RO,8) < > 1 THEN PRINT 
3 PRINT "EL "5M$(A(RO,8));3" 


TE ATACA":kW = 1: GOSUB 1950 
: GOTO 220 

IF ST < 1 THEN ST = 0: GOTO 

380 

IF RND (1) > .84 THEN ST = 

ST - 1 

IF CH< 1 THEN CH = 0: GOTO 

400 

IF RND (1) > .84 THEN CH = 

CH - 1 

IF DE < 1 THEN DE = O: GOTO 

420 

IF RND (1) > .84 THEN DE = 

DE - 1 

IF IT < 1 THEN IT = O: GOTO 

440 

IF RND (1) > .84 THEN IT = 

1T-= 1 

IF WI < 1 THEN WI = 0: GOTO 

460 

IF RND (1) > .84 THEN CO = 

co - 1 

IF CO< 1 THEN CO = O: GOTO 

470 

PRINT : PRINT " TUS ATRIBUTO 
S SON 1 " 

PRINT 3 PRINT— TAB( 4)5 "FUER 
ZA - "3ST5" CARISMA — "¿CH 

PRINT 3 PRINT TAB( 4)3"DEST 
REZA —- "3DE3" INTELIGENCIA 

- "3I1T 

PRINT : PRINT TAB( 4)3"SABI 
DURIA — "3WI5" CONSTITUCION 


s10 


520 
530 
540 


550 
560 
570 
580 


590 
600 


610 
620 


30 
640 
650 


660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 


e10 
820 


830 
840 


eso 


860 


- "3CO0 
IF ST * CH * DE + IT +* WI + 


CO = O THEN HOME 2 PRINT 3 PRINT 


2 PRINT 2: PRINT "DESGRACIADA 
MENTE, ESTAS AGOTADO "2 PRINT 
23 PRINT "POR TANTO, TU AVENT 
URA HA TERMINADO":QU = 2: GOTO 
3250 
FLAG = 0 
FOR J = 1 705 
IF P(J) < > O THEN FLAG = 1 
NEXT J 
IF FLAG = O THEN GOTO 630 
CASH = O 
PRINT : PRINT "DISPONES DE : 
" 


FOR J = 1 705 

IF P(J) < >0O THEN PRINT 1 
PRINT — TAB( 4)50$(P(J)): CAS 

H = CASH + V(P(J)) 

NEXT J 

IF CASH > O THEN PRINT : PRINT 
TAB( 8);5"VALOR TOTAL -> "3 STRS$ 
(CASH) 3" PTS." 
PRINT 

Kw =0 

IF RO = 7 AND C$ 
ACID = 1 

IF RO = 15 AND C$ = "AMU" 
LACKET = 1 

FOR Z = 1 TO 2000 

NEXT Z 
INPUT 
3As 

IF AS 


= "ACI" THEN 


THEN 


"QUE DESEAS HACER -> " 


= "" THEN GOTO 690 
AS = ASC (AS) 
M = LEN (A$) 
IF M< 7 THEN AS = As + "o" 
GOTO 720 
BS = LEFTS (A$,3) 
IF BS = "AYU" THEN PRINT 2 
TAB( 3)3"BROMEAS...!"1 GOTO 
1010 
IF BS = "SAL" 
3170 
N=1 
IF MIDS (A$,N,1) = " 
CS = MIDS (A$,N + 1,3)1 
800 
GOTO 820 
IF LEFTS (C$,1) < >" 
GOTO 840 
GOTO 830 
IF N < M THEN N = N + 12 GOTO 
780 
IF RND (1) > .5 THEN 850 
PRINT : PRINT TAB( 6)3"POR 
SI MISMO, "5A$: PRINT : PRINT 
TAB( 6)3"NO PUEDE SER EJECU 
TADA": GOTO 490 
PRINT : PRINT A$;" SOLAMENTE 
ES UNA PALABRA": PRINT : PRINT 
TAB( 4)3"Y YO NECESITO DOS" 
: GOTO 690 
IF RO = 2 AND C$ = "ACI" AND 
ACID = O THEN PRINT : PRINT 
"NO DISPONES DE EL": GOTO 10 
40 


THEN QU = 41 GOTO 


" THEN 
GOTO 


" THEN 


PRINT 


O 


O 


Oo0 OO OOOO OOOoOo—Q0uo us. s.o.o.o 


O 


O 


o. o 


Oo0ouDUOM0D0UOOoOoO OJO OOOOoOo ooo...  q_Uq2$£$£.>_ LC... O O 


O 


O 


870 


880 


890 


900 


910 


IF RO = 2 AND B$ = "VE " AND 
LEFTS (0$,1) = "E" THEN PRINT 
: PRINT "TE COMERAN VIVO, SI 
INTENTAS "1 PRINT 2 PRINT " 
CRUZAR EL ARROYO...!"ws GOTO 
1040 
IF RO = 2 AND ACID = 1 AND C 
$ = "ACI" THEN PRINT 2: PRINT 
"LOS PECES SE ESTAN MURIENDO 
A CIENTOS...": PRINT : PRINT 
"AHORA PUEDES CRUZAR EL ARRO 
YO!" RO = 3: GOTO 1040 
IF B$ = "MAT" OR B$ = 
KW = 1: GOSUB 1950 
IF RO = 12 AND LOCK = O AND 
(LEFTS (C$,1) = "0" OR LEFTS 
(C$,1) 
TAB( 4);"LA PUERTA ESTA CER 
RADA!":z PRINT : GOTO 1040 
IF B$ = "GC " AND A(RO,8) < 
> O AND RND (1) > .5 THEN 
PRINT : PRINT "NO HUYAS, DE 
BES LUCHAR CON EL "3MS(A(RO, 
8))»1 FOR FF = 1 TO 500: NEXT 


"LUC" THEN 


FF1 GOSUB 1950 

920 IF B$ = "VE " THEN KW = 23 GOSUB 
1080 

930 IF B$ = "COG" THEN KW = 3: GOSUB 
1460 

940 IF BS = "TIR" THEN KW = 4: GOSUB 
1720 

950 IF B$ = "ABR" THEN KW = 5: GOSUB 
3000 

960 IF KW< > 0O THEN 1040 

970 R = INT ( RND (1) +* 3) 

980 IFR = 0 THEN PRINT : PRINT 
"NO RESULTA MUY INTELIGENTE 
"3As 

990 IFR =1 THEN PRINT 2 PRINT 
"TAN SOLO UN LOCO INTENTARIA 
"sas 

1000 IF R = 2 THEN PRINT : PRINT 


1010 
1020 
1030 
1040 
1050 
1060 


1070 
1080 
1090 
1100 


1110 
1120 
1130 
1140 
1150 
1150 
1170 


1180 
1190 


"NO ENTIENDO QUE INTENTAS DE 
CIR CON "“3As 


FOR FF = 1 TO 1000 
NEXT FF 

GOTO 320 

FOR Z = 1 TO 1000 
NEXT Z 


ON KW GOTO 320,240,320,320, 
320 
REM 
REM 
REM 
IF RO < 
o y 
IF BRIBE = 1 THEN GOTO 134 
[o] 

PRINT : PRINT "EL DEMONIO E 
NMADEJADOR INSISTE EM EL " 
PRINT : PRINT "INTERCAMBIO 
DEL ANILLO DE ORO PARA" 
PRINT : PRINT  TAB( 12)3"DE 
JARTE PASAR..." 
FLAG = O 

FOR J = 1 TOS 

IF P(J) = 1 THEN FLAG = 1 
NEXT J 

IF FLAG > O THEN GOTO 1260 


HA dd 16 M6 1 DD 1 1 6 


MOVIMIENTO 
id atacada 


> 1 THEN GOTO 134 


= "E") THEN PRINT 3: PRINT 


1200 


1210 


1220 
1230 
1240 
1250 
1260 
1270 
1280 


1290 
1300 
1310 
1320 
1330 
1340 
1350 


1360 


1370 


1380 


PRINT 2 PRINT 


"NO LO TIENES 
EL DEMONIO ENMADEJADOR" 


PRINT 1: PRINT 
ASAR..." 

FOR Z = 1 TO 1000 

NEXT Z 

RO = 1 

RETURN 

FOR Z = 1 TO 1000 

NEXT Z 

PRINT 1 PRINT 
O TENIAS!!!* 
P(FLAG) = 0 
A(1,8) = 0 
BRIBE = 1 
PRINT : PRINT "EL DEMONIO E 
NMADEJADOR MURMURA GRACIAS. . 

": 


"NO TE DEJA P 


"POR SUERTE L 


PRINT : PRINT "...Y DESAPAR 
ECE......” 
C$ = LEFTS (C5$,1) 

IF C$ = "N"” AND A(RO,1) = O 
THEN PRINT : PRINT "POR AH 
I NO PUEDES IR": RETURN 

IF C$ = "S" AND A(RO,2) = O 
THEN PRINT : PRINT "POR EL 
SUR NO HAY SALIDA": RETURN 


IF C$ = "E" AND A(RO,3) = O 
THEN PRINT : PRINT "NO VEO 
CAMINO POR EL QUE IR AL EST 
E": RETURN 

IF C$ = "0" AND A(RO,4) = O 
THEN PRINT : PRINT "NI SIQ 
UIERA TU PUEDES ATRAVESAR PA 
REDES": RETURN 

IF C$ = "N" THEN RO = A(RO, 
GOTO 1440 
IF C$ = "S" THEN RO = A(RO, 
GOTO 1440 
IF C$ = "E" THEN RO = A(RO, 
GOTO 1440 
IF C$ = "0" THEN RO = A(RO, 
GOTO 1440 


PRINT "NO SE IR AL 


MOMIA M6 6D 6 6 M0 6 DDD HI 


RUTINA DE COGER COSA 


VEIA MO HAM DML HH DMA DE MH 


TOS 
> O THEN FLAG = 


IF FLAG < 
550 

PRINT 2 PRINT "NO PUEDES LL 
EVAR MAS COSAS" 

PRINT : PRINT "YA LLEVAS CI 
NCO OBJETOS": RETURN 

IF A(RO,5) = O AND A(RO,6) = 
O AND A(RO,7) = O THEN PRINT 
: PRINT "NO VEO NADA QUE COG 
ER": RETURN 


> 5 THEN GOTO 1 


OOOO OOOO OO Oo 0OOSOoOoOOooA OOO Oo OomOo 


ooo Oo 
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o. 0 0 O 


0U00.-.0 0 0 0 0 0. 0:00 0 


oO OoOoomO0 


o. Oo 


1560 
1570 
1580 
1590 
1600 
1610 
1620 


1530 
1540 


1650 


1660 
1570 


16580 
1690 


1700 
1710 
1720 
1730 
1740 
1750 
1760 


1770 
1780 


1790 


1800 
1810 
1820 
1830 


1840 
1850 


19860 
1870 
1880 
1890 


1900 
1910 
1920 
1930 
1940 
1950 


19650 
1970 


1980 
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DS = "" 
ES = "" 
FS = 
Ds 


= LEFTS (OS(A(RO,5)),3) 
ES = LEFTS (OS(A(RO,6)),3) 
FS = LEFTS (O$(A(RO,7)),3) 

IF C$ = DS THEN N = A(RO,5) 
¿A(RO,5) = 0: GOTO 1460 

IF C$ = E$ THEN N = A(RO,6) 
1A(RO,6) = O: GOTO 1660 

IF C$ = F$ THEN N = A(RO,7) 
:A(RO,7) = O: GOTO 1660 

PRINT : PRINT "EN ESTA HABI 
TACION NO HAY UN "5C$: RETURN 


J=-1 

IF P(J) = 
1590 

IF J< 5 THEN J = J + 1: 
1570 

PRINT 2: PRINT  TAB( 3)3">-> 
AHORA TIENES UN "50$(N) 

RETURN 

REM 16462626 636 46 16 36 3 46 26 16 26 6d 0d 

REM RUTINA DE SOLTAR 

REM II 1606 E M6 DH MAI EM 
FLAG = O 

FOR J = 1 TOS 

IF P(J) < > O THEN FLAG = 

1 

NEXT J 

IF FLAG = O THEN PRINT 2 PRINT 
"NO LLEVAS NADA": RETURN 

IF A(RO,S) < > O AND A(RO, 
6) < >0 AND A(RO,7) < >0 
THEN PRINT : PRINT "EN EST 
A HABITACION YA HAY EL "2 PRINT 
1 PRINT  TAB( 6)3"MAXIMO DE 
OBJETOS. ": RETURN 
DS$ = "" 
D=0 

FOR J = 1 70 8 

IF LEFTS (08(J),3) = CS THEN 
D$ = 0$(J):D = J 

NEXT J 

IF DS = "" THEN PRINT 2 PRINT 
TAB( 3)5"COMO PUEDES, CUAND 
O "3 PRINT : PRINT  TAB( 5)5 
"NO LO TIENES ?"2 RETURN 

FOR J = 1 TOS 

IF P(J) = D THEN P(J) = O 

NEXT J 

IF A(RO,5S) = O THEN A(RO, 5) 

= D: GOTO 1920 

IF A(RO,6) = O THEN A(RO, 6) 

= D: GOTO 1920 

IF A(RO,7) = O THEN A(RO,7) 
=D 

PRINT : PRINT 
DO EL "3D$ 
RETURN 

a 

REM RUTINA DE LUCHA 

O A 

IF RO = 1 THEN PRINT : PRINT 
"NO PUEDES LUCHAR CONTRA EL 
ENMADEJADOR": RETURN 

IF A(RO,8) < > O THEN GOTO 
2030 


O THEN P(J) = Nz GOTO 


GOTO 


“YA HAS SOLTA 


1990 
2000 


2010 


2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 


2100 


2110 


2120 


2130 
2140 


2150 


2160 


2170 


2180 
2190 
2200 
2210 
2220 


2230 


2240 
2250 
2260 
2270 


2280 
2290 


2300 


2310 
2320 


2330 
2340 


R = RND (1) 

IFR<.S5 THEN PRINT : PRINT 
"NO HAY NADIE CON QUIEN LUCH 
AR" 

IFR> =.5 THEN PRINT : PRINT 
"NO PUEDES LUCHAR CONTRA EL 
AIRE" 

RETURN 
G$ = MS(A(RO,8))>) 


Si = INT ( RND (1) * 6 + RND 
(1) * 6 + RND (1) * 6) + 3 

H1 = INT ( RND (1) * 6 + RND 
(1) * 6 + RND (1) * 6) + 3 

Di = INT ( RND (1) * 6 + RND 
(1) * 6 + RND (1) +* 6) + 3 

l1 = INT ( RND (1) * 6 + RND 
(1) * 6 + RND (1) * 6) + 3 

Wi = INT ( RND (1) * 6 + RND 
(1) * 6 + RND (1) * 6) + 3 

Ci = INT ( RND (1) * 6 + RND 
(1) * 6 + RND (1) * 6) + 3 
PRINT 3 PRINT "==========-=- 

A II AS ” 
PRINT : PRINT "TU CONTRINCA 

NTE ES UN "3GS$ 

MT = O1 REM TALLA DEL MONS 
TRUO 

HT = O1 REM TU TALLA 

FF = S1 * ( INT ( RND (1) + 

6) + 1) 


PRINT 2 PRINT O "==========.- 


PRINT : PRINT "LA PELIGROSI 
DAD DE "3G$;" ES "3FF 
PRINT 2 PRINT "-==========- 


FOR Z = 1 TO 2000 

NEXT Z 

FOR J = 1705 
TJ) = 0 

IF P(J) = 6 THEN PRINT : PRINT 
"TU HACHA PUEDE AYUDAR"2T(J) 

=6 

IF P(J) = 5 THEN PRINT : 
"TU HABILIDAD CON LA ESPADA 
PUEDE": PRINT : PRINT "PONER 
TE EN BUENA POSICION": T(J) = 
Ss 

NEXT J 
FLAG = O 
FOR J = 1 
IF T(J) < 
FLAG + 1 
NEXT J 

IF FLAG = O THEN PRINT : PRINT 
"TIENES QUE PELEAR CONTRA "; 
G$: PRINT 2: PRINT TAB( 10)5 
"CON LAS MANOS": GOTO 2450 

IF FLAG > 1 THEN GOTO 2370 


PRINT 


TOS 
> O THEN FLAG = 


FOR J = 1 TOS 


IF T(J) < > O THEN FLAG = 
T(J) 

NEXT J 

PRINT : PRINT "PELEARAS CON 
"306 (FLAG) 


o. Oo 


OoO0O0O0 O OOO O OOO OAOOOsO 


ooo o 0 


oOo000O0OOOOoOoO0osoomsom0 


O: 0-0 


O 


O 


2350 
2360 
2370 


2380 
2390 


2400 
2410 


2420 


2430 
2440 
2450 


2460 
2470 


2480 


2490 


2500 


2510 


2520 
2530 


2540 


2550 


2560 
2570 
2580 


2590 
2600 


2610 
2620 
2630 
2640 
2650 
2660 


2670 


FF = INT (FF * 2 / FLAG) 
GOTO 2450 
PRINT 2 PRINT "ESCOGE ARMA 
1 ” 

FOR J = 1 705 

IF P(J) < >0 THEN PRINT 


1 PRINT J3" - "308(J) 

NEXT J 

INPUT "NUMERO DEL ARMA ELEG 
IDA -> "3J 


IF P(J) = O THEN PRINT 2: PRINT 
"NO TIENES "50$(J): GOTO 241 
Lo] 

PRINT : PRINT "ELEGISTE LUC 
HAR, CON "30$(J) 
FF = INT (FF * 2 / J) 

FOR Z = 1 TO 2000 

NEXT Z 

PRINT 23 PRINT "============ 


PRINT 3 PRINT "EL "3683" TI 
ENE LOS": PRINT : PRINT "SIG 
UIENTES ATRIBUTOS : " 

PRINT : PRINT "1 - FUERZA " 
3S13" 2 - CARISMA ";H1 

PRINT 2: PRINT "3 - DESTREZA 

"3D13" 4 - INTELIGENCIA "3 


PRINT : PRINT "S - SABER "5 
wi3" 6 - CONSTITUCION "5C1 


PRINT 2: PRINT "TUS ATRIBUTO 
S SON 2 " 

PRINT : PRINT "1 - FUERZA " 
3ST;3" 2 - CARISMA "3CH 
PRINT : PRINT "3 - DESTREZA 
"5DE3" 4 -— INTELIGENCIA "; 
IT 

PRINT : PRINT "5 - SABER "5 
WIz" 6 - CONSTITUCION ";3CO 


PRINT : PRINT "CON CUALES D 
E TUS ATRIBUTOS QUIERES" 

PRINT : PRINT "LUCHAR (ELIG 
E DOS) ? "3 

INPUT Z,Q 

HOME 

IFZ>60RQ>ó6O0R Z = Q THEN 
PRINT : PRINT "NO HAGAS LOC 
URAS CUANDO UN "3G$2 PRINT : 
PRINT — TAB( 8)5"ANDE SUELTO 

Y CERCA!!!" FOR FE = 1 TO 
1000: NEXT FEz GOTO 2470 
IFZ7Z=10RQ= 1 THEN MT = 
MT + S1:HT = HT + ST 

IF Z7=20RQ = 2 THEN MT = 
MT + H1:3HT = HT + CH 

IF Z=30RQ = 3 THEN MT 
MT + D12HT = HT + DE 

IF Z=40R Q = 4 THEN MT = 
MT + 113HT = HT + IT 

IF Z=S5O0RQ = 5 THEN MT 
MT + W123HT = HT + WI 

IF Z=60R Q = 6 THEN MT = 
MT + C1:HT = HT + CO 

IF HT = MT THEN PRINT : PRINT 
TAB( 4)5"AMBOS CONTENDIENTE 
S ESTAIS A LA PAR"z GOTO 273 


2680 
2690 
2700 
2710 
2720 


2730 
2740 
2750 
2760 
2770 
2780 
2790 


2800 


2810 


2820 


2830 


2840 


2850 


2860 


2870 


2880 
2890 
2900 
2910 
2920 
2930 
2940 


2950 
2960 


lo) 

PRINT : PRINT "PARECE QUE L 
AS APUESTAS" 

PRINT : PRINT "ESTAN A FAVO 
R DE "3 

IF HT > MT THEN PRINT "TI" 
: GOTO 2720 

PRINT "EL "3G$ 

PRINT 2 'PRINT Presenta 


= INT ( RND (1) +* 7) 
FOR Z = 1 TO 1000 


PRINT : PRINT "EL "3G$3" -> 


PRINT : PRINT “TU "5HT 
PRINT 1 PRINT "=========--- 


IF K=0 THEN PRINT : PRINT 
"CONSEGUISTE UN MAGNIFICO GO 
LPE!!!"3MT = MT - 1 

IF K= 1 THEN PRINT : PRINT 
"EL "36$3" HUYE COBARDEMENTE 

"2MT = MT - 3:ST = ST - 1:C 
H = CH - 1 

IF K <= 2 THEN PRINT : PRINT 
"HAS HERIDO AL "35G$:MT = MT -— 
1 

IF K=3 THEN PRINT : PRINT 
"TE HAN HERIDO! !"2HT = HT — 

INT ( RND (1) * 3) — 1:DE = 
DE — 1 

IF KK = 4 THEN PRINT : PRINT 
"EL "36$3" SE ESTA CANSANDO" 
¿MT = MT - 1 

IF K=5 THEN PRINT : PRINT 
"ESTAS SANGRANDO ABUNDANTEME 
NTE...":HT = HT - 2:WI = WI - 
1:C0 = CO - 1 

IF KK = 6 THEN PRINT 3: PRINT 
"HAS HERIDO MUY GRAVEMENTE A 
L "3G$:3MT = MT - 1 

IF |RND (1) > .25 AND HT > 
O AND MT > O THEN FOR T = 1 

TO 2000: NEXT Tz GOTO 2730 


IF HT > MT THEN PRINT 2 PRINT 


"HAS VENCIDO AL "3G6$:ST = ST 
+ 1:DE = DE + 1:WI = WI + 1 
¿CH = CH + 122 17 = IT + 1:C0 = 
CO + 1:MK = MK + 13 GOTO 295 

lo) 
PRINT : PRINT "EL "36$;" ES 
TA VEZ TE HA VENCIDO" 
IF Z=1 0RQ= 1 THEN ST = 
4 * INT (ST / 5) 
IF Z=20RQ= 2 THEN CH = 
3 * INT (CH / 4) 
IFZ=30RQ 
6 * INT (DE / 
IFZ=40RQ 
2 %* INT (IT / 3) 
IFZ=50RQAQ 
5 * INT (WI / 
IFZ=60RQ 
INT (CO / 2) 
A(RO,8) = 0 
FOR Z = 1 TO 2000 


o. o 


OOOO OoODJDOoOOoOOoOOOoOooO O OOOO 0O0oOOOooomsOoO 
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O” 78.9 00 0) 2.0 30: 00 «O 40... 0 0:70:00. 00:00 0: 3000 


O 


O 


2970 
2980 
2990 
3000 
3010 
3020 


3030 
3040 
3050 
3060 
3070 


3080 


3090 


3100 
3110 
3120 


3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 


3240 
3250 


3260 
3270 
3280 


3290 


3300 


3310 


3320 
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NEXT Z 

RETURN 

A 

REM ABRIR PUERTAS 
e 

IFROX > 12 OR LOCK = 1 THEN 
PRINT : PRINT "LA PUERTA NO 
ESTA CERRADA": RETURN 
FLAG = O 

FOR J = 1705 

IF P(J) = 2 THEN FLAG = J 

NEXT J 

IF FLAG = O THEN PRINT : PRINT 
"NO TIENES LA LLAVE": RETURN 


IF LEFTS (C$,3) < > "PUE" 
THEN PRINT 3 PRINT "NO SE 
ABRIR UN "5C$: RETURN 

PRINT : PRINT "AL GIRAR LA 
LLAVE LA CERRADURA CRUJE" 
FOR Z = 1 TO 2000 

NEXT Z 

PRINT 3: PRINT "POR FIN LA P 
UERTA SE ABRIO" 
LOCK = 1 
P(FLAG) = O 

RETURN 

REM 464626-26-26-16-26-26 24-20-2626 26 46 34 16-16 

REM FIN DEL JUEGO 

REM 363626262626 46 36 26-26-2616 26 46343626 
SC = O: REM PUNTUACION 

IF QU = 4 THEN PRINT : PRINT 
"NO IMAGINABA QUE FUERAS UN 
COBARDE": GOTO 3250 

PRINT : PRINT "FELICIDADES. 
HAS CONSEGUIDO TERMINAR" 
PRINT : PRINT "LA AVENTURA. 
» 


sc = 100 

PRINT : PRINT 
SC = INT (9999 * LACKET + ( 
SC + 20 * CASH + 47 * MK + S 
T+20% CH +3 DE +4 + 171 
+5 * WI +46 CO) / QU) 

IF MK > O THEN PRINT 3 PRINT 
TAB( 8)3"HAS MATADO "3Mk3" 
MONSTRUOS "; 

IF CASH = O THEN PRINT 

IF MK > O AND CASH > O THEN 
PRINT "Y" 

PRINT 2: PRINT TAB( 9)3"HAS 
ENCONTRADO "3 STR$ (CASH)3" 
PTS, ": PRINT : PRINT — TAB( 
15);"EN TESOROS": PRINT 

IF LACKET = O THEN PRINT " 
POR CONTRA, NO HAS ENCONTRAD 
O EL AMULETO": PRINT "Y ENTO 
NCES MEFISTOFELES NO TE DEVU 
ELVE": PRINT : PRINT TAB( 1 
5);"EL ALMA" 

IF LACKET = O THEN GOTO 33 
50 

IF LACKET = 1 THEN PRINT : 
PRINT "Y HAS CONSEGUIDO ENC 
ONTRAR EL AMULETO": PRINT : PRINT 
"ENTONCES MEFISTOFELES TE DE 
VUELVE": PRINT 2 PRINT "EL A 
LMA!'!! HAS "533 SPEED= 50: PRINT 
CHR$ (7)3"G"3 CHRS (7)3"A"3 


3330 
3340 
3350 


3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 


3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 


3540 
3550 


3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 


3640 


3650 
3660 


3670 
3680 
3690 
3700 
3710 
3720 


3730 


CHRS$ (7)3"N"3 

PRINT  CHRS (7)3"A"5 CHRS ( 
7)3"D"3 CHR$ (7)353"0" 

SPEED= 255 

PRINT 1: PRINT "EN ESTA AVEN 
TURA HAS HECHO "3SC3" PUNTOS 


e 
REM RUTINA DE RECORD 

a 
DS = "” 

PRINT DS$; "OPEN RECORD" 
PRINT DS$; "READ RECORD" 
INPUT RECANT 

INPUT LOTENIAS 

PRINT D$; "CLOSE RECORD" 

IF SC > RECANT THEN RECANT = 
SC: GOSUB 33550: LOTENIAS = JU 
GADSs 


PRINT 2 PRINT 3 PRINT : PRINT 


"RECORD ="3 

PRINT RECANT;5"...."5LOTENIA 
$ 

PRINT D$; "DELETE RECORD" 
PRINT DS; "OPEN RECORD" 

PRINT D$; "WRITE RECORD" 

PRINT RECANT 

PRINT LOTENIAS 

PRINT D$;"CLOSE RECORD” 

END 

PRINT "SE HA BATIDO EL RECO 
RD.":z PRINT : PRINT : PRINT 
2 PRINT : PRINT "PON EL NOMB 
RE DEL VALIENTE AVENTURERO" 

PRINT : PRINT "QUE HA CONSE 
GUIDO VENCER EL RETO DE" 

PRINT : PRINT  TAB( 12); "ME 
FISTOFELES" 


PRINT : PRINT "RECOMENDADOS 

PARA UN ASCENSO"32 INPUT " 
"5 JUGADS 

RETURN 

END 


REM DM DD ID E dd A DE dd 
EMITE IMA 

REM DESCRIPCION DE LAS H 
ABITACIONES 

REM ION IED DD IED DE DEI A HH 
IIIIIA MA MA 

ON RO GOSUB 3460,3750,3820, 
3890,3950, 4020, 4070, 4130, 417 
0,4230,4290,4340, 4400, 4450, 4 
500 

RETURN 

REM sex HABITACION UNO 
HI 

PRINT : PRINT "ESTAS EN UNA 
HABITACION POLVORIENTA" 
PRINT 2 PRINT “GUARDADA POR 
LAS ESTATUAS DE PIEDRA" 
PRINT : PRINT "DE DOS PODER 
OSOS DEMONIOS, SITUADAS" 
PRINT : PRINT "A CADA LADO 
DE LA ESTANCIA, MIRANDO" 
PRINT : PRINT "A LOS FRIOS 
OJOS DEL OTRO. LA UNICA" 
PRINT : PRINT "SALIDA TE LL 
EVA AL LUGAR DE DONDE " 
PRINT : PRINT "VENIAS...." 


o.0 0 O 


000 0 0.0000. 0 O 0. 0.00 0.0 0 0:00 


O 


O 


oO OOOO Oo O0Ooososom0o 


o oO 


O 


OO OOOoOoOoo0os.om0 


o. oO 


3740 
37530 


3760 
3770 


3780 
3790 
3800 


3810 
3820 


3830 
3840 
3850 
3860 
3870 


3880 
3890 


3900 
3910 


3920 
3930 


3940 
3950 


3960 


3970 


3980 
3990 
4000 


4010 
4020 


4030 
4040 
4050 


4060 
4070 


4080 
4090 


4100 


RETURN 

REM sex HABITACION DOS +. 
+ 

PRINT : PRINT "ESTAS EN UNA 
HABITACION OSCURA, DONDE" 
PRINT 2: PRINT "SE TRAIA A L 
OS MUERTOS PARA JUZGARLOS... 
" 


PRINT : PRINT "A TRAVES DEL 
ARCO DEL ESTE PUEDES VER” 
PRINT 2 PRINT "UN RUGIENTE 
ARROYO... INFESTADO DE " 
PRINT : PRINT "MORTALES PEC 
ES DEVORADORES DE HOMBRES. " 
RETURN 

REM sees HABITACION TRES + 
A 

PRINT : PRINT "SEGUN DEJAS 
ATRAS EL ARROYO, TE " 

PRINT 2: PRINT "ENCUENTRAS D 
E PIE,CHORREANDO, EN UNA " 
PRINT : PRINT "MINUSCULA CR 
IPTA..." 

PRINT : PRINT "UNA CORRIENT 
E DE AIRE FRESCO SURGE " 
PRINT : PRINT "DEL NORTE... 
” 


RETURN 

REM ses HABITACION TRES + 
..e 

PRINT 1 PRINT "EL TEMPLO DE 
SIERTO QUE HA SIDO TESTIGO" 
PRINT 2 PRINT "DE LA CELEBR 
ACION DEL RITUAL DE LA " 
PRINT 1 PRINT "MISA NEGRA" 
PRINT 2 PRINT "EL HEDOR RES 
ULTA INAGUANTABLE..." 


RETURN 

REM ses HABITACION CINCO 
+... 

PRINT 1: PRINT "VARIOS ESQUE 


LETOS, EN SUS ATAUDES, " 
PRINT 1 PRINT "DEJAN CONSTA 
NCIA DE LA HORRIBLE HISTORIA 
“ 


PRINT "DE QUE LOS HOMBRES Q 
UE SE NEGARON A " 

PRINT : PRINT "ENTREGAR SU 
ALMA FUERON CONDENADOS A" 
PRINT 2 PRINT "MORIR MUY LE 
NTAMENTE..." 

RETURN 

REM +... HABITACION SEIS + 
... 

PRINT 2: PRINT "ESTO FUE UNA 
VEZ LA CAMARA DEL TESORO " 
PRINT 3 PRINT "DE SU INFERN 
AL MAJESTAD, PERO HACE " 
PRINT 12 PRINT “TIEMPO QUE S 
E ENCUENTRA VACIA..." 

RETURN 

REM ss HABITACION SIETE 
AM 

PRINT 12 PRINT "ESTA ES UNA 
DIMINUTA Y MOHOSA HABITA- " 
PRINT 2 PRINT "CION, DONDE 
EL SOL INTENTA ENTRAR POR " 
PRINT 2 PRINT "ENTRE LOS BA 
RROTES DE UNA VENTANA " 


4110 


4120 
4130 


4140 
4150 


4160 
4170 


4180 
4190 
4200 
4210 


4220 
4230 


4240 
4250 
4260 
4270 


4280 
4290 


4300 


4310 


4320 


4330 
4340 


4350 
4360 
4370 
4380 


4390 
4400 


4410 
4420 
4430 


4440 
4450 


4460 
4470 


4480 


PRINT : PRINT "SITUADA EN L 

O ALTO..." 

RETURN 

REM sees HABITACION OCHO + 

+... 

PRINT 2 PRINT "MONTONES DE 

ASTILLAS, ES LO UNICO QUE" 

PRINT : PRINT "QUEDA DE LA 

ARMERIA DEL DIOS NEGRO..." 

RETURN 

REM sees HABITACION NUEVE 

e. 

PRINT 2 PRINT "TE ENCUENTRA 

S EN LA LIBRERIA. LOS " 

PRINT : PRINT "LIBROS ESTAN 

HECHIZADOS Y NO PUEDEN " 

PRINT 1: PRINT "SER RETIRADO 

S DE LAS ESTANTERIAS POR" 

PRINT 2 PRINT "UN VIL MORTA 
"” 


+ HABITACION DIEZ +* 
od 

PRINT 2: PRINT "LOS MURALES 
DE LAS PAREDES DE ESTA HA-" 
PRINT 3: PRINT "BITACION, CUE 
NTAN LAS GRANDES BATALLAS" 
PRINT : PRINT "ENTRE LAS FU 
ERZAS DE LA LUZ Y DE LA " 
PRINT : PRINT "OSCURIDAD... 
RETURN 

REM ses HABITACION ONCE + 
+. 

PRINT 2: PRINT "ESTAS EN LA 
HABITACION QUE USABA" 

PRINT : PRINT "LA GUARDIA N 
EGRA DEL REY DE LA OSCURIDAD 
PRINT "PARA SUS BACANALES, 

SIGLOS ATRAS..." 

RETURN 

REM ses HABITACION DOCE + 
... 

PRINT : PRINT "HAY LARGUISI 
MAS MESAS EN ESTA HABITA-" 
PRINT : PRINT "CION, QUE UN 
A VEZ FUE USADA COMO COME-" 
PRINT : PRINT "DOR, POR LA 
LEGION DE LOS PERDIDOS " 
PRINT : PRINT "DE SATANAS, 
AHORA ESTA CASI VACIA..." 
RETURN 

REM ses HABITACION TRECE 
AA 

PRINT 3: PRINT "TE ENCUENTRA 
S EN UNA GIGANTESCA CUEVA " 
PRINT : PRINT "SUBTERRANEA 
NATURAL, QUE HA SIDO " 

PRINT 2 PRINT "REACONDICION 
ADA COMO ALMACEN..." 

RETURN 

REM +... HABITACION CATORC 
E sn... 

PRINT 3 PRINT "EL LABORATOR 
IO DEL ALQUIMISTA, CON..." 
PRINT : PRINT "EL ECO DE LO 
S HECHIZOS FLOTANDO TODA- " 
PRINT : PRINT "VIA EN LA HU 


OO OOOOOOOOoOo Oo 0.0.0.0. Oqwqx q qnv0oÓ _ .,,. .. 0 O 


E 


MEDAD DEL AMBIENTE...” 4880 ACID = O 


o 
] 
O ' 4490 RETURN 4890 REM se INICIALIZACION DE 
1 4500 REM wee HABITACION QUINCE HABITACIONES see 
O h ..en 4900 FOR X = 1 TO 16 
' 4510 PRINT 2 PRINT "HAS CONSEGUI 4910 FOR Y = 1 TO 4 
1 DO RECORRER EL CAMINO HASTA" 4920 READ A(X, Y) 
O ! 4930 NEXT Y 
1 4520 PRINT +: PRINT “LA HABITACIO 4940 NEXT X 
1 N PRIVADA DE MEFISTOFELES... 4950 REM sw DISTRIBUCION DE T 
O n a ESOROS sexe 
1 4530 PRINT "ESTO SIGNIFICA QUE H 4960 FOR Z = 1 TO 8 
¡ AS LLEGADO A LA MI-" 4970 READ 0$(Z),V(Z) 
O | 4540 PRINT 3 PRINT "TAD DE LA AV 4980 NEXT Z 
! ENTURA..., HAS HECHO...” 4990 A(6,5) = 1 
1 4550 PRINT 3 PRINT TAB( 12)3".. 5000 A(10,5) = 2 
O ! +BIEN...HASTA AQUI...” 5010 A(15,5) = 3 
1 4560 RETURN 5020 A(7,5) = 4 
a 4570 REM 4s046 16261626 16-06 0624 26-26 46 26462001040 26d 5030 FOR Q = 5 TO 8 
O : «e. 5040 7 = INT ( RND (1) * 15 + 1) 
¡ 4580 REM DESCRIPCION DE OBJET 
1 os 5050 IF A(Z,5) < > O THEN GOTO 
o) H A 5040 
h de 5060 A(Z,5) = Qr REM sees OBJETO 
1 4600 PRINT NO. A LA HABITACION ves 
o! 4610 PRINT 2 PRINT TAB( 3)3"EN 5070 NEXT Q 
' LA HABITACION PUEDES VER 1 " 5080 PRINT 
1 5090 REM  wsew%%w DISTRIBUCION DE M 
O | 4620 IF A(RO,5) < > O THEN PRINT ONSTRUOS se» 
1 2: PRINT  TAB( 4)50$(A(RO,5)) 5100 FOR J = 1 TO 8 
! 5110 READ M$(J) 
1 4630 IF A(RO,6) < > O THEN PRINT 5120 IF J = 1 THEN GOTO 5170 
O 1 PRINT  TAB( 4)30$(A(RO,6)) 5130 Z = INT ( RND (1) * 15 + 1) 
1 4640 1F A(RO,7) < > O THEN PRINT 5140 IF 7=90RZ = 3 0R Z = 1 THEN 
O n 2 PRINT  TAB( 4)50$(A(RO,7)) GOTO 3130 
í 5150 IF A(Z,8) < > 0 THEN GOTO 
¡ 4650 FOR Z = 1 TO 1000 5130 
O | 4660 NEXT 2 5160 A(Z,8) =J 
y 4670 PRINT 5170 NEXT J 
1 4680 RETURN 5180 A(1,8) = 1 
O 1 4690 REM ee 0000 0 0 5190 RETURN 
1 4700 REM INICIALIZACION 5200 REM ses DATA DE LAS HABIT 
1 4710 REM m90030062614-20:0604-2616-616-46:6-436 ACIONES 444 
O | 4720 REM DEFINT A-Z 5210 DATA 0, 4, 0, O 3 REM HA 
1 4730 DIM A(16,8),P(5),0$(9),V(20 B. 1 
! ),M8(9),T(5) 5220 DATA 0, 5, 3, O 1 REM HA 
O 1 4740 ST = INT ( RND (1) + 6 + RND B. 2 
h (1) * 6 + RND (1) * 6) + 3 5230 DATA 16, 0, O, 2 1 REM HA 
1 4750 CH = INT ( RND (1) + 64 + RND B. 3 z 
O! (1) * 6 + RND (1) + 6) + 3 5240 DATA 1,8, 5, O 1 REM HA 
1 4760 DE = INT ( RND (1) * 6 + RND B. 4 
¿ (1) * 6 + RND (1) + 6) + 3 5250 DATA 2,0, 6, 4 1 REM HA 
O ¡ 4770 IT = INT ( RND (1) + 6 + RND B. 5 
$ (1) + 6 + RND (1) + 6) + 3 5260 DATA O, 0, 0, S 2: REM HA 
1 4780 WI = INT ( RND (1) + 6 + RND B. 6 
O' (1) *. 6 + RND (1) + 6) + 3 5270 DATA 13, 0, 0, O 1 REM HA 
1 4790 CO = INT ( RND (1) + 6 + RND B.7 
; (1) + 6 + RND (1) + 6) + 3 5280 DATA 4,11, 0, O 2 REM HA 
O ¡ 4800 CASH = O: REM TESOROS B. 8 
l 4810 RO = 9: REM HABITACION 5290 DATA  0,12,10, O 2 REM HA 
! DE COMIENZO B. 9 
O ! 4820 QU = 11 REM BANDERA FIN D 35300 DATA 0, 0,0, 9 2 REM HA 
1 E JUEGO B. 10 
| 4830 MK = O: REM MONSTRUOS VENCI 3310 DATA  8,14,12, O 2 REM HA 
O ¡ Dos B. 11 
1 4840 LOCK = O 5320 DATA 9, 0,13,11 2 REM HA 
| 4850 CS = "" B.12 
O ¡| 4860 BRIBE = O 5330 DATA 0, 7, 0,12 : REM HA 
l 4870 LACKET = O B.13 


362 


OOO OOO DO OOO O OOOO OOOO OO O0O Oo OO OOoSAOoOo 


O 


O 


o. oO 


5340 DATA 11, 0,15, O z REM HA 
B. 14 

5330 DATA O ,0, 0,14 3 REM HA 
B. 15 

3360 DATA 0,3, 0, O 1 REM HA 
B. 16 

5370 REM  *s%we%w* DATOS DE LOS OBJE 
TOS we. 

S380 DATA "ANILLO",367 

5390 DATA "LLAVE" ,2 

5400 DATA "AMULETO",15 


5410 


DATA 
DATA 


“ACIDO",7 
"ESPADA",0, "HACHA" , O 


5430 DATA "AMATISTA",27 

5440 DATA “CRISTAL”, 45 

5450 REM  eess* NOMBRES DE MONSTR 
y UOS ee... 

5460 DATA "ENMADEJADOR" 

5470 DATA "ARTEFACTO" 

5480 DATA "EMBORRONADOR" 

5490 DATA "ZOMBIE FEO" 

5500 DATA "ORCO HORRIBLE” 

5510 DATA "JOROBADO" 

5520 DATA "TRASGO FEROZ" 

5530 DATA "BABOSO" 


ooo Oo 


o000O0DOoOoOoO0OooOomsomOo 


OoOOoOo Oo oso. 


10 REM 3036064046 36 36-26-2016 26 36 36 86-46 46 46 4 46 3 10 de 

20 REM + * 

3O REM * BASE ESPACIAL 2000 + 

40 REM + PRESENTACION + 

SO REM * (PROGRAMA OPTATIVO) + 

60 REM + * 

70 REM 3ém34 1616-36 26-16 26-10-24 36-16 20-20 30d0d0 20 20 0d6 

80 YAESTA = O 

90 HOME 

100 HGR 

110 X = 70 

120 Y = 15 

130 REM ee... LA B .... 

140 HPLOT X,Y TO X + 15,Y TO X + 
20,Y + 5 TO X + 20,Y + 10 TO 
X + 15,Y + 15 TO X,Y + 15 TO 
X + 15, Y + 15 TO X + 20,Y + 
20 TO X + 20,Y + 25 TO X + 1 
5,Y + 30 TO X,Y + 30 TO X,Y 

150 HPLOT X + 1,Y + 1 TO X + 15, 
Y +1 70 X + 19,Y + 5 TO X + 
19,Y + 10 TO X + 15,Y + 14 TO 
X + 1,Y + 14 TO X + 1,Y + 1 

160 HPLOT X + 2,Y + 2 TO X + 15, 
Y +2 70 X + 19,Y + 5 TO X + 
19, Y + 10 TO X + 15,Y + 13 TO 
X + 2,Y + 13 TO X + 2,Y + 2 

170 HPLOT X + 3,Y + 3 TO X + 15, 
Y+3TO0X + 17, Y + 5 TO X + 
17, Y + 10 TO X + 15,Y + 12 TO 
X + 3,Y + 12 TO X + 3,Y + 3 

180 Y = 30 

190 HPLOT X + 1,Y + 1 TO X + 15, 
Y +1 TO X + 19,Y + 5 TO X + 
19, Y + 10 TO X + 15,Y + 14 TO 
X + 1,Y + 14 TO X + 1,Y + 1 

200 HPLOT X + 2.Y + 2 TO X + 15, 
Y +2T0X + 18,Y + 5 TO X + 
18, Y + 10 TO X + 15,Y + 13 TO 
X + 2,Y + 13 TO X + 2,Y + 2 

210 HPLOT X + 3,Y + 3 TO X + 15, 
Y +3 TO X + 17,Y + 5 TO X + 
17,Y + 10 TO X + 15,Y + 12 TO 
X + 3,Y + 12 TO X + 3,Y + 3 

220 REM ue... LA A mes 

230 X = 1101Y = 45 Ñ 

240 HPLOT X,Y TO X,Y - 30 TO X + 
20,Y - 30 TO X + 20,Y 

250 HPLOT X + 1,Y TO X + 1,Y - 2 
9 TO X + 19,Y - 29 TO X + 19 

Y 

, 

260 HPLOT X + 2,Y TO X + 2,Y - 2 


8 TO X + 18,Y - 28 TO X + 189 
Y 
, 


510 


HPLOT X + 3,Y TO X + 3,Y - 2 
7 TO X + 17,Y - 27 TO X + 17 


Y 
, 

HPLOT X + 4,Y - 12 710 X + 16 
¿Y - 12 

HPLOT X + 4,Y - 13 TO X + 16 
¿Y - 13 

HPLOT X + 4,Y - 14 10 X + 16 
¿Y - 14 


HPLOT X + 4,Y - 15 TO X + 16 
IF YAESTA = 1 THEN 


HARE LA S AAA 
X = 170:Y = 15 

HPLOT X,Y TO X - 20,Y TO X - 
20,Y + 15 TO X,Y + 15 TO X,Y 

+ 30 TO X - 20,Y + 30 
HPLOT X,Y + 1 TO X - 19,Y + 
1 TO X - 19,Y + 14 TO X,Y + 
14 

HPLOT X,Y + 2 TO X - 18,Y + 
2 TO X - 189,Y + 13 

HPLOT X,Y + 3 TO X - 17,Y + 
3 TO X - 17,Y + 13 

HPLOT X - 20,Y + 16 TO X - 1 
,»Y + 16 TO X - 1,Y + 29 TO X 

=- 20,Y + 29 

HPLOT X - 20,Y + 17 TO X - 2 
»Y + 17 TO X - 2,Y + 28 TO X 

- 20,Y + 28 

HPLOT X - 3,Y + 18 TO X - 3, 
Y + 27 TO X - 20,Y + 27 

IF YAESTA = 1 THEN GOTO 560 


REM eu. LA E me” 
X = 210:Y = 15 

HPLOT X,Y TO X - 20,Y TO X - 
20,Y + 30 TO X,Y + 30 
HPLOT X,Y + 1 TO X - 19,Y + 
1 TO X - 19,Y + 29 TO X,Y + 
29 

HPLOT X,Y + 2 TO X - 18,Y + 
2 TO X - 18,Y + 28 TO X,Y + 
28 

HPLOT X,Y + 3 TO X - 17,Y + 
3 TO X - 17,Y + 27 TO X,Y + 
27 


HPLOT X,Y + 14 TO X - 17,Y + 
HPLOT X,Y + 15 TO X - 16,Y + 
MeLOF X,Y + 16 TO X - 16,Y + 
AOS X,Y + 17 TO X - 16,Y + 


O 


O 


00. 00 O0OOOOOO O .O0Oo0o0os.o0om0 


5 
w 


C 


O 1 9-00 207 0) 8) 10-00 0070000 00: 0 0 4-00 0. 
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520 


530 
540 


550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


700 
710 


720 


730 


740 


750 
760 
770 
780 
790 


800 


elo 


17 


IF YAESTA = 1: THEN GOTO 770 


REM 444% LA S 46% 

X = 30: Y = 65: YAESTA = 1: GOTO 
340 

REM seee LA Ie 


X = 50:Y = 65 
HPLOT X,Y TD X + 20,Y 
HPLOT X,Y + 1 TO X + 20,Y + 
1 

HPLOT X,Y + 2 TO X + 20,Y + 

¿Y 


2 

HPLOT X 

3 

HPLOT X + 8,Y + 4 TO X + 8,Y 
+ 26 

HPLOT X + 9,Y + 4 TO X + 9,Y 


+ 3 TO Xx +20, Y + 


10,Y + 4 TO X + 10 
11,Y +4 TO X + 11 
HPLOT X,Y + 27 TO X + 20,Y + 


HPLOT X,Y + 28 TO X + 20,Y + 
28 
HPLOT X,Y + 29 TO X + 20,Y + 


HPLOT X,Y + 30 TO X + 20,Y + 


+. LA D e” 
X = 903Y = 65 

HPLOT X,Y TO X + 15,Y TO X + 
20,Y + 5 TO X + 20,Y + 25 TO 
X + 15, Y + 30 TO X,Y + 30 TO 
X,Y 

HPLOT X + 1,Y + 1 TO X + 15, 
Y + 1 70 X + 19,Y + 5 T 

19,Y + 25 TO X + 15,Y + 29 TO 
X + 1,Y + 29 TO X + 1,Y + 1 
HPLOT X + 2,Y + 2 TO X + 15, 
Y +2 10 X + 19,Y + 
18,Y + 25 TO X + 15, 
X + 2,Y + 28 TO X + 
HPLOT X + 3,Y + 3 T 
Y + 3710 X + 17,Y + 
17,Y + 25 TO X + 15, 
X + 3,Y + 27 TO X + 3, 
REM AR LA E 44% 
X = 150: Y = 65: GOTO 440 

REM exe LA Res 
X = 170:3Y = 95 

HPLOT X,Y TO X,Y - 30 TO X + 
15,Y - 30 TO X + 20,Y - 25 TO 
X + 20,Y - 19 TO X + 15,Y - 
14 TO X + 4,Y - 14 

HPLOT X + 1,Y TO X + 1,Y - 2 
9 TO X + 15,Y - 29 TO X + 19 
,Y - 25 TO X + 19,Y — 19 TO 

X + 15,Y - 13 TO X + 4,Y - 1 
3 

HPLOT X + 2,Y TO X + 2,Y - 2 
8 TO X + 15,Y - 28 TO X + 18 
»Y - 25 TO X + 18,Y - 19 TO 


820 


830 
840 
850 
860 


870 
eso 
890 
900 
910 


920 


930 
940 


950 
960 
970 


980 
990 
1000 
1010 
1020 
1030 


1040 


1050 
1060 
1070 
1080 
1090 
2 PR 


1100 
1105 
1110 


X + 15, Y - 12 TO X + 4,Y - 1 
2 
HPLOT X + 3,Y TO X + 3,Y - 2 
7 TO X + 19,Y -= 27 TO X + 17 
»Y - 25 TO X + 17,Y - 19 TO 
X + 15,Y - 11 TO X + 4,Y - 1 
1 
HPLOT X + 15,Y - 13 TO X + 2 
O,Y - 9 TO X + 20,Y 
HPLOT X + 14,Y - 13 TO X + 1 
9, Y - 9 TO X + 19,Y 
HPLOT X + 13,Y - 13 TO X + 1 
8,Y - 9 TO X + 18,Y 
HPLOT X + 12,Y - 13 TO X + 1 
7, Y - 9 TO X + 17,Y 
REM em. LA A ds 
X = 210: Y = 95: GOTO 240 
REM eee LA Lee” 
Xx = 250:Y = 65 
HPLOT X,Y TO X,Y + 30 TO X 
20,Y + 30 
HPLOT X + 1,Y TO X + 1,Y + 
9 TO X + 20,Y + 29 
HPLOT X + 2,Y TO X + 2,Y + 
8 TO X + 20,Y + 28 
HPLOT X + 3,Y TO X + 3,Y + 
7 TO X + 20,Y + 27 
REM +... EL 2 441. 
X = 961Y = 151 
HPLOT X,Y TO X - 32,Y TO X - 
32,Y - 12 TO X - 4,Y - 28 TO 
X - 4,Y - 35 TO X - 7,Y - 38 
TO X - 25,Y - 38 TO X - 28, 
Y - 35 TO X - 28,Y - 28 TO X 
- 32,Y - 28 TO X - 32,Y - 3 
8 TO X - 25,Y - 42 TO X - 7, 
Y - 42 TO X,Y - 35 TO X,Y - 
24 TO X - 28,Y - 8 TO X - 28 
,»Y - 4 TO X,Y - 4 TO X,Y 
REM 2x%%% LOS 0O”S 
X = 111: Y = 109: GOSUB 1030 
X = 151: Y = 109: GOSUB 1030 
XxX = 191:Y = 109: GOSUB 1030 
GOTO 1060 
HPLOT X,Y TO X + 189,Y TO X + 
25,Y + 7 TO X + 25,Y + 35 TO 
X + 18,Y + 42 TO X,Y + 42 TO 


+ 


N N N»N 


X - 7,Y + 35 TO X - 7,Y + 7 TO 


X,Y 

HPLOT X,Y + 4 TO X + 18,Y + 
4 TO X + 21,Y + 7 TO X + 21, 
Y + 35 TO X + 18,Y + 38 TO X 
¿Y + 38 TO X - 3,Y + 35 TO X 
- 3, Y +7 710 X,Y +4 

RETURN 

FOR I = 1 TO 3000 

NEXT 1 


TEXT : HOME 
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' 
' 
' 
' 
1 
| 
1 
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1 
Ú 
1 
' 
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1 
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VTAB 12: PRINT  TAB( 5)3:2 INVERSE; 


INT "CARGANDO EL PROGRAMA PRI 
NCIPAL" 
NORMAL 
PRINT  CHR$ 
PRINT — CHR$ 

SPACIAL 2000" 


(4) 35 "NOMONCIO"” 
(4)3 "RUN BASE E 


C 


OOOO OOOO OO Os 0OO.0oOOOOCOCOoOODOoOo.po.Oo 


O 07-70-0000 O 0 O 0 0. a 0.70. 30 


oO Oo Oo Oo ooo Oo 


10 
15 
20 
25 
30 
35 
40 
50 


60 
70 


80 


90 


100 
120 
130 
140 
150 


150 
170 
180 
190 
200 
210 
220 
230 
240 
260 
270 


280 
290 


300 
310 


320 
330 
340 
350 
360 
370 
380 
390 


400 
410 
420 


430 
440 


450 


460 


REM 4030300424 06 40406461626 3036 26-26-4036-24 2604 
REM + * 


REM — * BASE ESPACIAL 2000 + 
REM + +* 
A 
REM 

CLEAR 

GOSUB 4500: REM INICIALIZACI 
ON 

GOSUB 280: REM NOMBRE DEL CU 
ADRANTE 

GOSUB £40: REM ESTADO DE LA 

NAVE 


IF EVENT < 5 AND RND (1) < . 
15 THEN Fi = 1: GOSUB 3080: 
TIENES PROBLEMAS 

IF Fi = 1 THEN Fi = Oz GOTO 6 
o 

REM 4 QUE HACEMOS +30 
POKE 34,11 
HOME 

POKE 34,0 
PRINT : PRINT 
MOVIMIENTO" 
PRINT 2: PRINT 
DISPARO" 
PRINT : 
RADARES" 
PRINT 3: PRINT 
ON => *5 
INPUT OPCI 

ON OPCI GOSUB 1540, 1930,840 
GOSUB 2330: REM ALIENS DISP 
ARAN 
FECHAESTELAR = FECHAESTELAR + 
1 


REM 


TAB( 2)3"1.- 
TAB( 2)5"2.- 
PRINT — TAB( 2)3"3.- 


TAB( 4)35"OPCI 


BS = "" 
OPCI = 0 

GOTO 40 

IN ii 
* 

REM NOMBRE DEL CUADRANTE 
ica 
* 

HOME : PRINT 

PRINT "23:12 ESTAS EN EL CUAD 
RANTE 23 “5 
P= INT (Si / 8 + .5) 
Q = INT (S2 / 8 + .5) 

IF P< 1 THEN P=1 

IF Q< 1 THEN Q = 1 

IF P > 8 THEN P = 8 

IF Q > 8 THEN Q = 8 

IF P > 4 THEN 480 

IF Q = 1 THEN PRINT "PEGASO 
. 

IF Q= 2 THEN PRINT "ACUARI 
o" 

IF Q = 3 THEN PRINT "CAPRIC 
ORNIO" 

IF Q = 4 THEN PRINT "“SAGITA 
RIO" 

IF Q=5 THEN PRINT "ZEUS" 
IF Q = 6 THEN PRINT "OSA MA 
YOR" 

IF Q= 7 THEN PRINT "CANCER 

8 THEN PRINT "PISCIS 


IF Q = 


470 
480 


490 
500 
510 
520 
530 
540 
550 


560 
570 


580 
590 
600 
610 


620 
630 


640 
650 


660 
670 
680 


690 
700 


710 


720 


730 


740 
750 
760 


770 
780 


790 


800 
e10 
820 
830 
840 
eso 
860 
870 
880 


GOTO 560 

IF Q = 1 THEN PRINT "TAURO" 
IF Q= 2 THEN PRINT "JUPITE 
R" E 

IF Q = 3 THEN PRINT "SATURN 
o" 

IF Q = 4 THEN PRINT "ARIES" 
IF Q = 5 THEN PRINT "MARTE" 
IF Q = 6 THEN PRINT "NEPTUN 
o" 

IF Q = 7 THEN PRINT "ALFA C 
ENTAURO" 

IF Q = 8 THEN PRINT "ANDROM 
EDA" 

PRINT 

PRINT === 
PRINT " FECHA ¿[ESTELAR 2 "5FE 
CHAESTELAR;" ALIENS 2 "3AK 
PRINT 1 
marc rn maana » 

PRINT "TUS COORDENADAS GALAC 


TICAS SON 3 "3S13" "552 
PRINT 


RETURN 
taa 


CONDICION DE LA NAVE 
O 
* 
ENERGIA = INT (ENERGIA +* 100 
) / 100 

PRINT — TAB( 5)"+*s* UNIDADES D 
E ENERGIA : ";ENERGIA;" $e" 


IF ENERGIA > 1 THEN 740 
PRINT : PRINT 2 PRINT "**.. H 
AS AGOTADO LA ENERGIA e." 
PRINT : PRINT " TU VIAJE S 
E HA TERMINADO " 

PRINT : PRINT "HAS SOBREVIVI 
DO "5FECHAESTELAR - 100035" D 
IAS ESTELARES" 

PRINT : PRINT "HAS DESTRUIDO 
"5 AK3" ALIENS": GOTO 3030 
IF ENERGIA > 50 THEN 800 

FOR H = 1 TO 3 

PRINT — TAB( H + 3)33">>>> AL 
ARMA <<<" 

NEXT H 

PRINT " RESERVA DE ENERGIA +* 

* BAJA +*" 

PRINT : PRINT " DEBES ENCONT 

RAR UNA ESTACION ESPACIAL 

CUANTO ANTES" 

FOR T = 1 TO 1000 

NEXT T 

RETURN 

A 

REM RADARES , 

REM III 

POKE 34,11 

HOME 

POKE 34,0 


O 


O 


oOo0 O OOOO O O Oo OCQOOoOOoOoS Oo 0 oo 0ososOoomOoOo 
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O: 0 0. 0 50. 6 0.0.0.0) 0: $: O 0.0 500 0: 0/4. 0-00 


E 


890 P=0 
900 A1 = 2003 REM DISTANCIA AL A 


LIEN MAS CERCANO 


910 AB = 200: REM DISTANCIA A LA 


920 PROX = Oz 


930 


940 
950 


960 
970 


980 
990 


1000 
1010 


1020 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


1230 
1240 
1250 
12650 
1270 


1280 


1290 
1300 


1310 


1320 


1330 
1340 
1350 
1360 
1370 


ESTACION ESPACIAL MAS CERCA 
NA 
REM — DISTANCIA A LA 
BASE ESPACIAL 2000 
PRINT : PRINT "QUIERES USAR 
LOS RADARES (S/N) -> "3 
INPUT Cs 
IF CS< > 
S" THEN 940 
IF CS = "N" THEN RETURN 
PRINT : PRINT "ALCANCE NORMA 
L O PROFUNDO (N/P)> "3 


"N" AND C$S<X >" 


INPUT Cs$ 

IF CS-< > "N" AND CS< >" 
P”" THEN 980 

HOME 

PRINT  TAB( 8)"> RADARES FU 


NCIONANDO <" 
IF C$ = "P" THEN GOTO 1080 


X1 = Sl - 4:X2 = 81 +4 
Y1 = S2 - 41Y2 = 82 +4 
ENERGIA = ENERGIA - .25 
POKE 32,13 

GOTO 1120 

POKE 32,9 

X1 = S1 - 8:X2 = S1 + 8 
Y1 = 82 - 8:Y2 = 82 +8 
ENERGIA = ENERGIA - .75 


IF X1 < 1 THEN X1 = 1 

IF Xi > 64 THEN X1 = 64 

IF Y1 < 1 THEN Y1 = 1 

IF Y1 > 64 THEN Y1 = 644 

IF X2 < 1 THEN X2 = 1 

IF X2 > 64 THEN X2 = 64 

IF Y2 < 1 THEN Y2 = 1 

IF Y2 > 44 THEN Y2 = 64 
PRINT 

PRINT * "3 

FOR 1 = Y1 TO Y2: PRINT "-" 
32 NEXT I 

PRINT 

FOR X = X1 TO X2 

PRINT ">"3 

FOR Y = Y1 TO Y2 
P = INT ( SOR ((X - S1) * ( 


X - S1) + (Y - S2) * (Y - S2 
33) 

IF A(X,Y) = SH THEN PRINT 
“*"52 GOTO 1330 

IF A(X,Y) = O THEN PRINT ” 

"32 GOTO 1330 

IF A(X,Y) = TE THEN PROX = 
Pz FLASH 2 PRINT "T"32 NORMAL 


IF A(X,Y) = AL THEN PRINT 
"A"32 IF P< Al THEN Al = Pz 
GH = X1GJ = Y 

IF A(X,Y) = SB THEN PRINT 
*"8"3s IF P < AB THEN AB =P 

NEXT Y 

PRINT "<” 

NEXT X 

PRINT * *5 

FOR I = Yi TO Y23 PRINT “-" 


1380 
1390 


1400 
1410 
1420 


1430 
1440 


1450 


1460 


1470 


1480 


1490 


1500 


1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1500 
1610 


1620 
1630 


1640 
1650 


1660 
1670 
1680 
1690 
1700 


1710 


312 NEXT I 
POKE 32,0 


PRINT 2 PRINT : PRINT 2 PRINT 


TAB( 12)3"PULSA UNA TECLA"3 


GET AS 

HOME 

IFA1X >200 0RABX >2 
00 OR PROX < > 0 THEN — PRINT 
2 PRINT 2 PRINT "LECTURA DE 


RADAR 3" 
PRINT "=============--- . 
IF A1< > 200 THEN PRINT 


2 PRINT "ALIEN MAS CERCANO A 

3 "3A13" PARSECS" 

IF AB<X > 200 THEN PRINT 
2 PRINT *“ ESTACION MAS CERCA 
NA A 2 "3AB3" PARSECS” 

IF PROX < >0 THEN PRINT 
z PRINT "BASE ESPACIAL 2000 
A: "¿PROX3" PARSECS": PRINT 
3 PRINT  TAB( 8)3"LA TENEMOS 

EN RANGO": GOTO 1500 


IF PROX = O THEN PRINT 2 PRINT 


"LA BASE ESPACIAL 2000 NO ES 
TA EN RANGO" 

PRINT 3: PRINT 3 PRINT "EL R 
ADAR DE LARGO ALCANCE 2" 
PRINT : PRINT “LOCALIZA LA 
B.E. 2000 A "3100 + 
(ABS (((B1 - S1) * (Bi - Si 
)) + ((B2 - S2) * (B2 - S2)) 
)))3” PARSECS" 

PRINT 2 PRINT "----- 


PRINT : PRINT 2 PRINT TAB( 
12)5"PULSA UNA TECLA"; 

GET AS 

HOME 

RETURN 

REM MIO LD 0D DE DEDO 6 Dd 10 IDE IED IE 
+A 
REM 
E 
REM 
+. 
POKE 34,11 

HOME 

POKE 34,0 

PRINT 1 PRINT "QUIERES MOVE 
R LA NAVE (S/N) -> "3 

INPUT B$ 

IF BS < > "N" AND BS < > 
“"S" THEN 1620 

IF BS = "N" THEN RETURN 
PRINT 1 PRINT "EN QUE DIREC 
CION (N, S, E, 0) ->"3 

INPUT AS 

IF AS< > "N" ANDAS < > 
"5" AND AS < > "E" AND AS < 

> "O" THEN 1660 

IF AS = "N" AND S1 = 1 THEN 
RETURN 

IF AS = "S” AND S1 = 64 THEN 
RETURN 

IF AS = "O" AND S2 = 1 THEN 
RETURN 

IF AS = "E" AND S2 = 64 THEN 


MOVIMIENTO DE LA NAV 


10-10 36 36 36 36-20-16 00 36 30 30-30 AA 16 00D 0 6 


INT ( SQR 


o. o 


OO OOOO OoOOOoOoOoO 0o0OOo0OOoOoOOomquomoOoCqco0mO0o 0. 0 O 


O 10-09-0770 0: 0: 0 0 10:00 O 0: 00.0 O. 0 0 00-009 


1720 
1730 


1740 
1750 


1760 
1770 
1780 
1790 


1800 
1810 
1820 
1830 
1840 


1850 
1860 


1870 


1880 


1890 
1900 
1910 
1920 
1930 
1940 


1950 
1960 
1970 
1980 


1990 
2000 


2010 
2020 


2030 
2040 


2050 
2060 


2070 
2080 


2090 
2100 
2110 
2120 


RETURN 
A(S1,S2) = 0 

PRINT 3 PRINT "POTENCIA (1 
AS) -> "5 

INPUT P 

IFP<i10RP>5 THEN GOTO 
1740 

IF AS = "N" THEN Si = Si -— 


P 
IF AS = "S" THEN Si = Si + 
P 


IF A$ = "0" THEN S2 = S2 - 
P 

IF AS = "E" THEN S2 = S2 + 
P 


IF S1 < 1 THEN Si = 1 
IF S1 > 64 THEN S1 = 64 
IF S2 > 64 THEN S2 = 644 
IF S2 < 1 THEN S2 = 1 


ENERGIA = ENERGIA - (2.73 + 
P) 

IF A(S1,S2) = O THEN A(S1,S 
2) = SH 

IF A(S1,S2) = AL THEN PRINT 
2 PRINT "HAS ATERRIZADO SOBR 
E UNA NAVE ALIEN !!!”:+ENERGI 
A = 01 FOR T = 1 TO 2000: NEXT 
Ts RETURN 

IF A(S1,S82) = SB THEN PRINT 
2 PRINT “HAS ATERRIZADO EN U 
NA ESTACION ESPACIAL”: ENERGI 
A = ENERGIA + 35:14 (S1,82) = 
SHi REM sw BASE UTILIZADA 
DESAPARECE 010 

IF S1 = B1 AND S2 = B2 THEN 
2630: REM HAS ENCONTRADO LA 
BASE ESPACIAL 2000 

FOR T = 1 TO 2000 

NEXT T 

RETURN 

REM 34943436 16-46 -30-26-16-26 36-36-0616 34-46 10-30-44 1640 
REM RUTINA DE DISPARO 
REM 449046 06-26 10-26-46 16-36-14 16-34 46 40-36-1026 40-4046 


POKE 34,11 

HOME 

POKE 34,0 

PRINT 2 PRINT "DISPARAS EL 
RAYO FOTONICO (S/N) -> “3 

INPUT AS 

IFAS< > "S” ANDAS<X > 
“N" THEN 1990 

IF AS = “"N" THEN PRINT 2 RETURN 


PRINT : PRINT TAB( 6)3"”CON 
QUE POTENCIA (2 A 8) -> "3 
INPUT K 

IF K< 2 OR K > 8 THEN 2030 


ENERGIA = ENERGIA - K + 2.5 
PRINT 2 PRINT "EN QUE DIREC 
CION (N, S, E, 0) "3 

INPUT AS 

IFAS< > "N” ANDAS< > 
“"S" AND AS < > “E” AND AS < 
> "0" THEN 2070 
M= 81 
N = 82 

POKE 34,11 

HOME 


2250 


:A(M, 


2260 


2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2430 
2460 
2470 


2480 
2490 


25300 


25310 


POKE 34,0 


PRINT 3 PRINT "INFORME DESP 
ERFECTOS CAUSADOS 1 ” 

PRINT * 

” 

PRINT 

FOR J = 1 TO K 

PRINT TAB( 4)3”RAYO FOTONI 
co *3J 

IF AS = "N” THEN M=M-a 

IF AS = "S” THEN M=Ma+1 

IF AS = "0” THEN N = N- 1 

IF AS = “E” di N=N+1 

IFM<X<1O0RM)Ó6S ORAN< 1 

OR N > 64 THEN 2270 

IF A(M,N) = AL THEN PRINT 


3 PRINT "NAVE ALIEN DESTRUID 
A EN a “3M3" “3N2AK = AK + 1 


:A(M,N) = 0:16H = 016J = O: GOTO 


2280 
IF A(M,N) = SB THEN —INVERSE 
3 PRINT : PRINT "HAS DESTRUI 


DO UNA ESTACION AMIGA !!!"”z NORMAL 


N) = O:ENERGIA = ENERGIA / 2 
2 GOTO 2280 


IF M=B1 AND N = B2 THEN PRINT 


"HAS DESTRUIDO LA BASE ESPAC 


IAL 2000 !!!"*.ENERGIA = Oz GOTO 


2730 

PRINT “........NADA” 

NEXT J 

PRINT 2 PRINT 

FOR T = 1 TO 2000 

NEXT T 

RETURN 

REM 9403036-16-06-10-10-26-26-26 46-20-40 3006 1000 
ANA 

REM LOS ALIEN TAMBIEN DI 
SPARAN 

REM 4004040104646 26-36-26-26-46-20-16-44-40 30-00 20001040 
HERA 

IF GH = O OR GJ = O OR RND 
(1) > .5 THEN RETURN 

GOSUB 280: REM NOMBRE CUAD 
RANTE 

GOSUB 640: REM ESTADO NAVE 


PRINT "LOS ALIENS EN 2 ”5GH 
3" "3633" TE DISPARAN” 

FOR T = 1 TO 1000 

NEXT T 
R = INT ( RND (1) + 4) 

IF R = O THEN PRINT 2 PRINT 
TAB( 7)3">>>> FALLARON <<<< 


IFR< > 1 THEN GOTO 2490 


PRINT +: PRINT “EL FUEGO ENE 
MIGO HA SIDO NEUTRALIZADO ” 
PRINT 2 PRINT ” POR LO 
S ESCUDOS LATERALES” 
PRINT : PRINT TAB( 10)3"DE 
SPERFECTOS MENORES” 
ENERGIA = ENERGIA - 4.75 
IFR< >2 THEN GOTO 2540 


PRINT 2 PRINT "EL FUEGO ENE 
MIGO HA CAUSADO DESPERFECTOS 


PRINT 2 PRINT ” EN LAS S 


OoO0OOOOOOOOOOOo< 0Oo,OOOOoOoO OO 


O 80-00 5000. 0 0.90. 0-2 O 120. 0.0 0:00. ..0 00.0 0 0 


O 


O 


2520 


2530 
2540 


2550 
2560 
2570 


2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 


2670 


2680 


2690 
2700 
2710 


2720 
2730 
2740 
2750 


2760 


2770 


2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 


2890 
2900 


2910 
2920 
2930 
2940 
2950 
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S DE LA B.E. 


ECCIONES DE TRIPULACION" 


PRINT : PRINT — TAB( 12)5"DE 


SPERFECTOS GRAVES" 
ENERGIA = ENERGIA - 18.25 


IFR< >3 THEN GOTO 2590 


PRINT 2 PRINT " EL FUEG 


O ENEMIGO HA DESTROZADO" 


PRINT : PRINT  TAB( 
PUENTE DE MANDO” 
PRINT : PRINT  TAB( 8)3"DES 


11)3"EL 


PERFECTOS GRAVISIMOS" 
ENERGIA = ENERGIA - 30.55 


FOR T = 1 TO 2000 
NEXT T 

RETURN 

REM 16262636 4626 16 36 40-26 36 26-26 36-36-1036 
REM ESTO SE ACABO 
E a 
PRINT 3 PRINT 


PRINT — TAB( 10)" LO HAS CON 


SEGUIDO !!" 


PRINT 2 PRINT "==--==--==--- 


PRINT "HAS ENCONTRADO LA BA 


SE ESPACIAL 2000" 
GENTE = 1000 + 
) * 1000) 


INT ( RND (1 


PRINT 2 PRINT "-=========-- 


PRINT " "pGENTE3" HABITANTE 
2000 TODAVIA " 
PRINT 1 PRINT " ESTAN VIVOS 


» Y AHORA SOBREVIVIRAN " 


PRINT 3 PRINT " GRACIAS AL 


ANTIDOTO QUE LES HAS TRAIDO" 


PRINT 2 PRINT 


PRINT 2 PRINT *” 


EN ESTA P 


ARTIDA HAS HECHO "3 


PUNTUAS = INT (GENTE + FECH 
AESTELAR + ENERGIA +* AK - 10 
00) 


PRINT PUNTUAS; " PUNTOS. " 
REM 44400 00-020 00-16 30 2020 00 200 


REM RUTINA DE RECORD 
REM 40402606 26 36-30 26-44 6 06-36-1020 4 4016 10 46 
DS = "” 


PRINT D$; "OPEN RECORD" 
PRINT D$3 "READ RECORD" 
INPUT RECANT 

INPUT LOTENIAS 

PRINT D$; "CLOSE RECORD" 

IF PUNTUAS > RECANT THEN RE 


CANT = PUNTUAS: GOSUB 2980:L 
OTENIAS = JUGADS 


PRINT 3 PRINT : PRINT 1 PRINT 


“RECORD ="3 


PRINT RECANT3"...."5LOTENIA 


s 


PRINT D$; "DELETE RECORD" 
PRINT DS; "OPEN RECORD” 
PRINT D$; "WRITE RECORD" 
PRINT RECANT 

PRINT LOTENIAS 


PRINT DS; “CLOSE RECORD" 

END 

PRINT "SE HA BATIDO EL RECO 
RD.":z PRINT : PRINT 2: PRINT 
s PRINT 3 PRINT "PON EL NOMB 
RE DEL VALIENTE CAPITAN DE" 
PRINT 3 PRINT "LA NAVE, PAR 
A PONERLE EN LA LISTA DE " 
PRINT 1 PRINT "RECOMENDADOS 
PARA UN ASCENSO"32 INPUT " 

"3 JUGADS$ 
RETURN 
END 


PRINT Pon 


PRINT "POR DESGRACIA, NO HA 
S ENCONTRADO LA" 

PRINT 2 PRINT "BASE ESPACIA 
L 2000, QUE ESTABA EN "3B13" 
"3B2 

GOTO 2750 

REM 3044494161616 16 4046 

REM EVENTS 

A 
EVENTS = EVENTS + 1 


ON EVENT GOSUB 3150, 34630, 38 
90,4190 

FOR T = 1 TO 2000 

NEXT T 

RETURN 

a A 

REM RAYOS GAMMA 

A ibi 

FOR T = 1 TO 500: NEXT T 
HOME 

VTAB 6 

PRINT "INFORME SCANNER DEL 
ORDENADOR: " 

PRINT 2 PRINT 3 PRINT "---- 
PRINT "TU NAVE SE HA INTROD 


UCIDO EN UN CAMPO " 

PRINT 2: PRINT "DE EMISION D 
E RAYOS GAMMA PROCEDENTES " 
PRINT : PRINT "DE UN QUASAR 
» LOCALIZADO EN VELA..." 

FOR T = 1 TO 2000 

NEXT T 

PRINT : PRINT " LA NAVE ES 
DESVIADA DE SU RUMBO POR " 
PRINT : PRINT  TAB( 10)3"LA 
S PARTICULAS GAMMA” 


PRINT "ion 
scr ” 
A(S1,82) = 0 
Si = Si + 1 
52 = 82 - 1 

IF Sí > 64 THEN Si = 64 

IF S2< 1 THEN S2 = 1 


A(S1,S2) = SH 


RETURN 

E 
REM RADIOACTIVIDAD 
A ad 
FOR T = 1 TO 3500: NEXT T 
HOME 

VTAB 6 


PRINT "INFORME SCANNER DEL 
ORDENADOR: " 


O 


o0ouDUODUO0OOoOoOoOouoo.. O€'<« O 'cMO 


o. Oo 


oO OOoOoOoOoOoso0om0 


00 0 O O OO O O O O O O O_O 


oo Oo OOO OOO 


PRINT 2 PRINT 3 PRINT "---- 


PRINT "LOS SENSORES EXTERIO 
RES INDICAN UNA” 

PRINT 2 PRINT " ACTIVIDAD 
ATOMICA INUSUAL DE" 

PRINT 2 PRINT " MAGNITUDE 
S ENTRE 4.8 Y 10.13" 

PRINT 3 PRINT " DESDE ALT 
AIR, Y APARENTEMENTE” 

PRINT 2 PRINT " DIRIGIDO 
HACIA TAU CETI" 

FOR T = 1 TO 2000 

NEXT T 

PRINT : PRINT 2 PRINT "ESTO 
S DATOS PUDIERAN SUGERIR UN 
MAL" 

PRINT : PRINT "FUNCIONAMIEN 
TO DE NUESTROS SENSORES" 


A(B1,B2) =0 
Bl = B1 +2 
B2 = B2 - 2 


IF B1 > 64 THEN B1 = 44 

IF B2< 1 THEN B2 = 1 
A(B1,B2) = TE 

RETURN 

IN iia 
REM EXCESO DE SODIO 

E dis 
FOR T = 1 TO 500: NEXT T 
HOME 

VTAB 3 

PRINT "INFORME SCANNER DEL 
ORDENADOR: " 

PRINT "ooo 


PRINT "LECTURAS DE SCANNER 
RECIBIDAS DESDE " 

PRINT 2 PRINT "LA NEBULOSA 
CABEZA DE CABALLO A 337 " 
PRINT 1 PRINT "PARSECS, 
ICAN UN EXCESO DE SODIO” 
PRINT 1 PRINT "EN EL ANALIS 

IS ESPECTROSCOPICO DEL” 
PRINT 1 PRINT "POLVO INTERE 
STELAR..." 

FOR T = 1 TO 1000 

NEXT T 

PRINT : PRINT "DEBEMOS UTIL 
IZAR UN 12% DE NUESTRA ” 
PRINT 13 PRINT "ENERGIA EN F 
ORTALECER LOS ESCUDOS..." 
FOR T = 1 TO 1000 

NEXT T 
ENERGIA = .78 +* ENERGIA 
PRINT : PRINT “DESPUES DE R 
EFORZAR LOS ESCUDOS " 

PRINT + PRINT "LA ENERGIA Q 
UE QUEDA ES -> "¡ENERGIA 


PRINT === -- 


FOR T = 1 TO 1000 

NEXT T 

RETURN 

A 
REM PROTOESTRELLAS 
REM 10343040-24-36-44 06 16 46 26 16-16-36 36-16-2040 


IND 


3920 
3930 
3940 
3950 


3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 


4040 
4050 
4060 


4070 


4080 
4090 
4100 
4110 


4120 


4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 


4250 


4260 
4270 
4280 
4290 


4300 


4310 


4320 
4330 
4340 


4350 


FOR T = 1 TO 3500: NEXT T 
HOME 

VTAB 6 

PRINT "INFORME SCANNER DEL 
ORDENADOR: 


PRINT : PRINT "EL RADAR FRO 
NTAL INDICA LA FORMACION " 
PRINT 2 PRINT "DE UNA PROTO 
ESTRELLA EN EL GAS DE LA ” 
PRINT : PRINT "NEBULOSA M16 
EN SERPENS. LA REACCION " 
PRINT 2 PRINT “"PROTON-PROTO 
N ESTA GENERANDO UNAS " 
PRINT : PRINT "TEMPERATURAS 
INTERNAS DEL ORDEN DE " 
PRINT 3 PRINT "17 X 1076 K. 
" 


PRINT 2: PRINT TAB( 11)3"HA 
Y QUE ALEJARSE !!!" 

FOR T = 1 TO 1000 

NEXT T 

PRINT 2: PRINT 2: PRINT  TAB( 
7)5"ACTIVO EL REACTOR PRINCI 
PAL !!" 


PRINT Po 
FOR T = 1 TO 2000 

NEXT T 
A(S1,S2) =0 

S1 =S1 + INT ( RND (1) * 3 
) 
S2 = 52 + INT ( RND (1) * 3 


) 

IF Si > 64 THEN S1 = 44 

IF S2 > 64 THEN S2 = 64 
A(S1,S2) = SH 

FOR T = 1 TO 300 

NEXT T 

RETURN 

A 

REM AGUJERO NEGRO 

e 

FOR T = 1 TO 500: NEXT T 
HOME 

PRINT "INFORME SCANNER DEL 
ORDENADOR: " 

PRINT : PRINT — TAB( 7)3">>> 


> "5: FLASH : PRINT "ALAR 
M A"3: NORMAL 2 PRINT " <<< 
<" 

FOR T = 1 TO 500 

NEXT T 

IF RND (1) > .7 THEN 4250 
PRINT. “== === ===2 
aora rr rm ” 

PRINT : PRINT " AGUJERO NEG 
RO A "3 INT ( RND (1) * 1000 


00) / 1003" PARSECS, EN " 
PRINT : PRINT " LA DIRECCIO 
N "3 INT ( RND (1) * 10000) / 
100;" CON UNA DEFLEXION DE " 
3 INT (( RND (1) * 34) + 100 

) / 100 


FOR T = 1 TO 500 
NEXT T 
PRINT : PRINT "EL EFECTO DE 


LENTE GRAVITACIONAL, DEL" 
PRINT : PRINT "AGUJERO NEGR 


OOOO OOOO OO .0O0Os0Os.0OsOOOOoCOOoOOo Oo 


O 


O 
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O, PROVOCA UNA GRAN " +.. 


a . 
1 ' 

l 4360 PRINT 2 PRINT "DISTORSION E 4660 REM CREACION DEL UNIVERS ¡ 
O: N LAS IMAGENES DE LA " o O 
! 4370 PRINT 2 PRINT "GALAXIA COMO 4670 REM seee 00 00 0 0 0 0 0 00 ! 

: SE VE, POR EL PROCESO" ... 
¡o 4380 PRINT : PRINT "INICIADO "5 INT 4680 FOR M = 1 TO 300 O 
] ( RND (1) * 100) / 100 4690 PRINT *."s 7 
1 4390 A(S1,S2) = 0 4700 FOR N = 1 TO 3 ! 

O 1 4400 M = 82 4710 C = INT ( RND (1) + 64) + 1 O 
y 4410 82 = S1 ; 

i 4420 S1 = M 4720 D = INT ( RND (1) + 64) + 1 ; 

O | 4430 A(S1,S2) = SH ¡yO 
: 4440 PRINT 3 PRINT " LA NAVE ENT 4730 IF N = 1 THEN A(C,D) = AL / 

1 ERA ESTA VIBRANDO..."” 4740 IF N = 3 THEN A(C,D) = AL ' 

O 1 4430 — PRINT "===> 4750 IF N = 2 THEN A(C,D) = SB LO 
1 e a 4760 NEXT N | 
¡ 4460 FOR T = 1 TO 2000 4770 NEXT M ' 

O 1 4470 NEXT T A7TOO REM estee 00000 O 
| 4480 RETURN 4770 REM BASE ESPACIAL 2000 : 

1. 4490 REM 0044441030606 4440 142640-26-0040 4800 REM 9090406014466 96-00-0620 204030000 | 
O | 4500 REM INICIALIZACION 4810 B1 = INT ( RND (1) + 64) + O 
] A 1 ! 

1 4520 HOME 4820 B2 = INT ( RND (1) + 64) + ! 

O | 4530 VTAB 9: PRINT "NOMBRE DEL C 1 O 
' APITAN -> "3 4830 A(B1,B2) = TE ' 

1 43540 INPUT JUGADS$ 4840 REM aes0I0 40 d0 0-00 62 20-10 000200 201010 000040 ' 

O ! 43550 HOME 0241040 0H 10404 O 
s 4560 PRINT 32 PRINT 2 PRINT " 4850 REM POSICION INICIAL DEL ! 

¡ POR FAVOR, ESPERE UN MOMENT JUGADOR ' 

O ' o" 4860 REM sede 0006 0006001030160 O 
1 4570 DIM A(64,44) IM 0H 0 0 ' 

1 4580 AL = ASC ("A"): REM ALIEN 4870 S1 = INT ( RND (1) + 64) + ' 

O |! 4590 AK = 0: REM ALIENS MUERTOS 1 O 
! 4600 mb = ASC ("S"): REM TU NAV 4880 S2 = INT ( RND (1) + 64) + ! 

1 1 1 
O | 4610 SB = ASC ("B"): REM ESTACI 4890 IF Si = B1 OR S2 = B2 OR A( O 
¡ ON ESPACIAL S1,S2) = AL OR A(S1,82) = SB ] 

' 4620 TE = ASC (“T")1x REM ”OBJET THEN 4870 ' 
O! IVO” DEL JUEGO: LA BASE ESPA 4900 A(S1,S2) = SH No) 
' CIAL 2000 4910 GENTE = 0 4 
| 4630 FECHAESTELAR = 1000 4920 GH = 0:6J = O 1 
O ¡ 4640 ENERGIA = 300 4930 EVENT = O i O 
1 4650 REM Ie 00000000 000000000000 4940 RETURN 1 


NOTA.—Si se utiliza el programa de presentación, es necesario salvar 
este último programa con el nombre BASE ESPACIAL 2000, o bien cam- 
biar la línea 1110 del listado anterior introduciendo el nombre elegido. 
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ANAYA MULTIMEDIA 
Colección «MICROINFORMATICA» 


Angell, l. O. y Jones, B. J.: DISEÑO DE GRAFICOS Y VIDEOJUEGOS (incluye 
cassette). 

Beechhold, Henry F.: EL LIBRO DEL HARDWARE. No destape su ordenador per- 
sonal... sin leer antes este libro. 

Birmingham Educational Computing Centre: INTRODUCCION A LA TECNO- 
LOGIA DE LA INFORMACION. PREINFORMATICA. 

Bishop, Peter: PROGRAMACION AVANZADA EN BASIC. 

Brown, Peter: PASCAL A PARTIR DEL BASIC. 

Cavalcoli, Aldo: EL ORDENADOR PERSONAL: COMO ELEGIRLO Y UTILIZARLO. 

Coccione, L. y Winter, G.: LOS ORDENADORES NO MUERDEN. 

Dachslager, H., Hayashi, M. y Zucker, R.: PROGRAMACION EN BASIC: UN 
METODO PRACTICO. 

Dewhirst, J. y Tennison, R.: TU PRIMER LIBRO DEL ZX SPECTRUM. 

D'Opazo, J. y Grupo GOLEM: PROGRAMACION EN LOGO. 

Durst, J.: «SPRITES» Y GRAFICOS EN LENGUAJE MAQUINA (ZX SPECTRUM). 

Galende Domínguez, F.; Sánchez López, A.; Alfaraz López, M. y Sánchez 
García, J. A.: COMETAS EN TU MICRO: EL HALLEY. Cálculos de órbitas y pará- 
metros de cometas en BASIC. 

Gavin, Maurice: ASTRONOMIA: EL UNIVERSO EN TU ORDENADOR. 

Gibbons, John P.: PROGRAMACION AVANZADA DEL COMMODORE 64. Am- 
pliación del BASIC y rutinas gráficas. 

Greenwood, Gareth: CODIGOS Y CLAVES SECRETAS. Criptografía en BASIC. 

Hammond, R.: EL ORDENADOR Y TUS HIJOS. 

Hartnell, Tim: EL LIBRO GIGANTE DE LOS JUEGOS PARA ORDENADOR. 

Hartnell, Tim: INTELIGENCIA ARTIFICIAL: CONCEPTOS Y PROGRAMAS. 

Hartnell, Tim: EL LIBRO GIGANTE DE LOS JUEGOS PARA ZX SPECTRUM. 

Hartnell, Tim, y otros: EL LIBRO GIGANTE DE LOS JUEGOS PARA DRAGON. 

Hartnell, Tim: EL SUPERLIBRO DE LOS JUEGOS PARA ORDENADOR. 

Heller, R. S. y Martin, C. D.: BITS Y BYTES: INICIACION A LA INFORMATICA. 

Hollerbach, Lew: MICROINFORMATICA: CONCEPTOS BASICOS. 

Hurley, R.: JUEGOS GRAFICOS DE AVENTURA PARA ZX SPECTRUM. 

Johnson, David: DESCUBRE LAS MATEMATICAS CON TU MICRO. 

Johnston, J.: MICROS: TAMAÑOS; FORMAS Y SABORES. 

Johnston, J.: MICROS: BIPS, PITIDOS Y LUCES. 

Johnston, J.: MICROS: MENUS, BUCLES Y RATONES. 

Kosniowski, Czes: MATEMATICAS DIVERTIDAS EN BASIC. 

Kramer, S.: PROGRAMACION AVANZADA DEL ZX SPECTRUM. 

Lacey, Andrew: LIBRO GIGANTE DE LOS JUEGOS PARA MSX. 

Núñez, Agustín: PROGRAMACION DEL INTERFACE 1 Y MICRODRIVE. 

Otero, M. A.; Pueyo, M. A. y Cajaraville, J. A.: PRIMEROS PASOS EN LOGO. 
El mundo de la tortuga Fan. Libro del profesor. Libro del alumno. 

O'Shea, T. y Self, J.: ENSEÑANZA Y APRENDIZAJE CON ORDENADORES. Inte- 
ligencia artificial en educación. 

Pentiraro, Egidio: EL ORDENADOR EN EL AULA. 

Pritchard, Joe: DESCUBRE TU MSX. Programación y aplicaciones. 

Pritchard, Joe: LENGUAJE MAQUINA MSX. Introducción y conceptos avanzados. 

Rosso, Vincenzo de: COMO SE PROGRAMAN LOS ORDENADORES. 

Sato, T.; Mapstone, P. y Muriel, l.: MSX: GUIA DEL PROGRAMADOR Y MA- 
NUAL DE REFERENCIA. 

Servello, Fausto: ¿QUE ES LA TELEMATICA? 

Snover, $. L. y Spikell, M. A.: JUEGOS MATEMATICOS DE INGENIO EN BASIC. 

Thomasson, Don: PROGRAMACION AVANZADA DEL AMSTRAD. Entradas y sa- 
lidas de la ROM. 

Webb, David: LENGUAJE MAQUINA AVANZADO PARA ZX SPECTRUM. 

Zaks, Rodnay: EL LIBRO DEL BASIC. 


ANAYA MULTIMEDIA 


INFORMATICA PERSONAL-PROFESIONAL 


EL LIBRO DEL WORDSTAR. Trucos y recursos.—Julie Anne Arca. 

EL LIBRO DEL ATARI ST. Manejo, aplicaciones y GEM.—Jeremy 
Vine. 

EL LIBRO DEL IBM PC, XT, AT. Programación, uso y aplicaciones.— 
Louis E. Frenzel, Jr., Louis E. Frenzel III 

PROGRAMACION EN C. Introducción y conceptos avanzados.— 
M. Waite, S. Prata, D. Martin. 

MARKETING Y VENTAS CON LOTUS 1-2-3. Técnicas comerciales 
para su microordenador.—Michael V. Laric, M. Ronald Stiff. 

PROGRAMACION DEL Z80.—Rodnay Zaks. 

EL LIBRO DEL APPLE lIlc. Programación, uso y aplicaciones.—Philip 
Lieberman. 

EL LIBRO DEL RS-232.—John Campbell. 

EL LIBRO DEL LOTUS 1-2-3. Desarrollo de aplicaciones profesiona- 
les.—Alan Simpson. 

MICROINFORMATICA PARA DIRECTIVOS. Cómo rentabilizar su 
ordenador personal-profesional.—Dick Heiser. 

PROGRAMACION GRAFICA EN EL IBM PC.—Dan lllowsky, 
Michael Abrash. 

QUILL. Tratamiento de textos en el QL.—F. Simon, C. Spottiswoode, 
Blueprint. 

EASEL. Gráficos de negocios en el OL—Alison Spottiswoode, Blueprint. 

ABACUS. Aplicaciones de la hoja electrónica en el QL.—Clare Spottis- 
woode, Blueprint. 

ARCHIVE. Manejo de la base de datos en el QOL.—lan Murray, 
Blueprint. 

MATEMATICAS PARA PROGRAMADORES. Sistemas de numera- 
ción y aritmética binaria.—William Barden, Jr. 

INTRODUCCION AL UNIX SISTEMA V.—Mitchell Waite, Stephen 
Prata, Donald Martin. 

GEOMETRIA DE TORTUGA. El ordenador como medio de explora- 
ción de las matemáticas.—Harold Abelson, Andrea diSessa. 


A estas alturas ya habrás descubierto que el ordenador es un compañero 
de juegos perfecto y que programar juegos en tu microordenador es la 
mejor forma de profundizar en el BASIC y de poner a prueba tus reflejos, 
tu lógica y tu intuición. 


Si te hacen falta ideas nuevas, ¡aquí tienes más de 30 fascinantes juegos 
totalmente originales! 


EL SUPERLIBRO DE LOS JUEGOS PARA ORDENADOR es una masiva y 
desafiante colección de juegos cósmicos, de aventura, de guerra, comecocos, 
simulaciones... que te harán pasar horas y horas de entretenimiento creativo 
con tu micro. 


A lo largo del libro encontrarás todo tipo de juegos, por ejemplo: 


A la búsqueda del Riemannian: busca por la galaxia el metal precioso. 
Cita con Mefistófeles: huye de la Torre de Kaskaskia con el medallón. 
La batalla de Gettysburg: reescribe la historia tirando los dados. 
Agente secreto: protege los documentos secretos. 
Los elefantes azules: de safari con el rayo laser antielefante. 
Sociedad anónima: comprueba tu capacidad como director gerente. 
Mercado de divisas: comercia con las monedas más fuertes del mundo. 
Squisher y Squasher: sobrevive a las criaturas diabólicas. 
Todos los programas de EL SUPERLIBRO DE LOS JUEGOS PARA 
ORDENADOR están intencionadamente escritos en el BASIC más general 
para que tú puedas personalizarlos a tu gusto, pero para que no te cueste 


ningún esfuerzo adaptarlos a tu micro en los Apéndices hallarás versiones 
para SPECTRUM, AMSTRAD, MSX, COMMODORE y APPLE ll. 


¡EL SUPERLIBRO DE LOS JUEGOS PARA ORDENADOR es la biblia de 
los amantes de los juegos de ordenador! 
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